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CHAPTER  1 

GENERAL  DESCRIPTION 


1-1.  PURPOSE  OF  THE  FUNCTIONAL  DESCRIPTION.  This  functional  description 
of  the  Extended  Parts  Requirements  and  Cost  Model  (PARCOM)  provides: 

a.  The  structure  of  the  model  logic  which  will  serve  as  a  basis  for 
mutual  understanding  between  the  user  and  the  developer. 

b.  Information  on  model  restrictions,  potential  for  extension,  and  user 
impacts. 

1-2.  PROJECT  REFERENCES.  The  reader  is  directed  to  the  reference  list  in 
Appendix  B  of  this  document. 

1-3.  TERMS  AND  ABBREVIATIONS.  The  reader  is  directed  to  the  glossary  at 
the  end  of  this  document. 

1-4.  BACKGROUND 

a.  Model  Origin.  The  US  Army  Concepts  Analysis  Agency  (CAA)  developed 
the  Parts  Requirements  and  Cost  Model  (PARCOM)  to  generate  cost-effective 
mixes  of  aircraft  spare  parts  and  to  assess  aircraft  fleet  performance  under 
specified  wartime  scenario  conditions.  Development  occurred  during  the 
course  of  the  Aircraft  Spare  Stockage  Methodology  (Aircraft  Spares)  Studyl 
conducted  by  CAA.  That  study,  and  PARCOM  development,  were  in  response  to 
interest  shown  by  the  Deputy  Chief  of  Staff  for  Logistics  (DCSLOG)  in  devel¬ 
oping  a  methodology  (or  methodologies)  relating  aircraft  spare  parts  stock- 
age  levels  to  combat  readiness  and  flying  hour  capability.  The  calculation 
of  spare  parts  requirements  and  of  the  effects  of  budgeting  changes  had 
been  a  slow  and  cumbersome  peacetime-oriented  exercise.  The  principal  cri¬ 
terion  for  spares  stockage  had  been  the  achievement  of  acceptable  stockout, 
or  fill  rate,  levels.  To  more  realistically  predict  wartime  spare  parts 
requirements,  and  to  better  justify  budget  requests  for  spare  parts  pro¬ 
curement,  the  Army  needed  a  more  responsive  methodology  based  on  wartime 
flying  hour  expectations  and  system  readiness/availability  requirements. 

At  first,  the  Army  used  the  Overview  Model, but  later  PARCOM  was 
developed  to  meet  that  need. 

b.  Documentation.  Results  reported  in  the  Aircraft  Spares  Study  were 
sufficiently  encouraging  to  warrant  a  follow-on  study  designated  the 
Overview/PARCOM  Turnkey  Project  (0PTP).2  Included  in  the  objectives  of 
OPTP  were  the  following  actions  pertaining  to  PARCOM: 
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(1)  Document  PARCOM,  as  developed  in  the  Aircraft  Spares  Study,  and 
deliver  it  to  the  US  Army  Aviation  Systems  Command  (AVSCOM).  That  documen¬ 
tation  consisted  of  a  User's  Guide^  and  a  Functional  Description.'^ 

(2)  Evaluate  and  report  on  the  potential  for  extending  the  capability 
of  the  PARCOM  methodology  to  include  partial -substitution  parts  replacement 
policies  and  any  other  features  deemed  desirable  but  lacking  in  the  version 
of  the  model  developed  for  Aircraft  Spares.  The  version  of  PARCOM  developed 
in  OPTP  is  denoted  as  Extended  PARCOM,  while  the  Aircraft  Spares  version  is 
denoted  as  basic  PARCOM.  A  technical  paperS  was  issued  describing  Extended 
PARCOM  methodology.  This  report  is  a  functional  description  of  the  new 
version  of  the  model.  An  Extended  PARCOM  User's  Guide^  has  also  been 
prepared. 

1-5.  STRUCTURE  OF  ARMY  AIRCRAFT  LOGISTICS 

a.  Governing  Regulations.  Policy  and  procedural  guidance  for  the  Army's 
inventory  management  efforts  is  largely  contained  in  two  regulations: 

•  AR  710-1,  Centralized  Inventory  Management  of  the  Army  Supply  System 

•  AR  710-2,  Supply  Policy  Below  the  Wholesale  Level 

(1)  AR  710-1  establishes  responsibilities  and  procedures  for  central¬ 
ized  inventory  management  of  Army  materiel  by  the  major  subordinate  commands 
(MSC)  of  the  US  Army  Materiel  Command  (AMC). 

(2)  AR  710-2  prescribes  supply  procedures  to  be  used  at  the  retail 
level,  including  methods  for  determining  authorized  stockage  lists  and 
appropriate  stockage  levels. 

b.  Maintenance  System  Structure.  Figure  1-1  illustrates  the  inter¬ 
action  of  supply,  maintenance,  and  industrial  activities  within  the  air¬ 
craft  parts  logistics  system. 

(1)  Parts  Storage  '(.ocations.  Aircraft  spare  parts  are  stored  with 
using  units  at  the  aviation  unit  maintenance  (AVUM)  and  the  aviation  inter¬ 
mediate  maintenance  (AVIM)  levels.  Aircraft  spare  parts  are  stored  in  var¬ 
ious  CONUS  depots  for  shipment  to  users  upon  requisition.  Additionally, 
war  reserve  parts  are  stored  in  various  CONUS  depots  or  prepositioned  in 
the  appropriate  theater. 


Aircraft 
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(2)  Participating  Organizations  and  Responsibilities.  AVUM  facilities 
are  organic  to  the  lower  echelon  aviation  units  which  actually  fly  and  main¬ 
tain  the  Army's  aircraft.  These  user  units  stock  a  prescribed  load  list 
(PLL)  of  repair  parts  at  the  AVUM  level.  PLLs  are  sized  to  sustain  the 
unit's  anticipated  wartime  flight  operations  for  a  specified  number  of  days 
(usually  15).  Stockage  levels  and  reordering  procedures  are  governed  by  AR 
710-2.  AVIM  units  develop  their  own  authorized  stockage  lists  (ASL)  based 
on  demands  for  parts  received  from  supported  AVUM  units  and  from  their  own 
AVIM  operations.  AVIM  ASLs  are  exclusive  of  subordinate  unit  PLLs.  The 
development  of  ASLs  is  also  governed  by  AR  710-2.  Part  types  are  selected 
for  PLL  and  ASL  stockage  based  upon  a  combination  of  experienced  demand 
frequency  and  mission  essentiality.  The  AVIM/AVUM  (retail)  parts  require¬ 
ments  are  supported  by  stocks  maintained  in  supply  depots  (wholesale)  in 
CONUS.  Automated  inventory  management  techniques  are  employed  by  AVSCOM  to 
authorize  and  record  fill  of  retail  requisitions  by  the  appropriate  whole¬ 
sale  depot.  Depot  stocks  are  replenished  through  procurement  of  new  parts 
or  repair  of  returned  unserviceables. 

c.  Areas  of  Consideration 

(1)  Peacetime  versus  Wartime.  Peacetime  requirements  for  spare  parts 
are  computed  based  upon  experienced  annual  demand  and  projected  peacetime 
usage.  AVSCOM  uses  an  automated  system  of  data  bases  and  models  to  fore¬ 
cast  these  requirements,  and  bases  its  computations  on  a  supply  availability 
goal.  Wartime  requirements  are  computed  and  funded  separately  from  peace¬ 
time  requirements,  and  address  those  parts  required  to  sustain  the  force 
during  the  initial  stages  of  war  until  lines  of  communication  and  supply 
can  be  established.  The  primary  consideration  for  peacetime  requirements 

is  meeting  supply  availability  goals,  while  that  for  war  reserve  require¬ 
ments  is  meeting  sustainability  goals. 

(2)  Initial  Provisioning  versus  Replenishment.  Computation  of  the 
spare  parts  requirement  for  initial  provisioning  of  new  weapons  systems  is 
necessarily  based  on  less  concrete  data  than  is  that  for  replenishment  parts 
for  already  fielded  systems.  No  demand  history  has  yet  been  developed,  so 
engineering  estimates  of  parts  failure  f.-tors  are  used  instead.  In  many 
cases,  all  the  parts  to  be  included  in  the  new  aircraft  have  not  been  fully 
identified,  and  their  cost  must  be  extrapolated  from  that  of  a  list  of  major 
assemblies.  AVSCOM  has  an  automated  capability  to  compute  initial  pro¬ 
visioning  requirements  based  on  these  projected  data.  Over  the  first  2 
years  of  a  system's  life,  actual  demand  data  is  accumulated  and  given 
increasing  weight  in  spare  parts  management  decisions.  After  a  system  has 
been  fielded  for  2  years,  its  replenishment  spare  parts  requirements  are 
computed  using  actual  demand  data  to  the  maximum  extent  possible. 

(3)  Retail  versus  Wholesale.  The  Army  splits  its  inventory  manage¬ 
ment  into  "retail"  and  "wholesale"  activities.  In  the  aviation  logistics 
context,  AVUM-  and  AVIM-level  parts  stockages  are  termed  "retail,"  while 
those  at  the  depot  level  are  termed  "wholesale."  The  methodologies  used 
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to  compute  spare  parts  requirements  for  the  retail  and  wholesale  levels  are 
entirely  different  and  essentially  unrelated.  Retail  stockage  levels  are 
computed  and  authorized  based  upon  a  combination  of  demand  experience,  com¬ 
bat  essentiality,  and  mobility  requirements.  AR  710-2  establishes  computa¬ 
tional  procedures  used  by  retail  parts  managers  to  determine  their  stockage 
levels  and  appropriate  reorder  points.  Wholesale  parts  requirements  are 
computed  based  upon  average  monthly  demand  experienced  at  the  wholesale 
level.  Wholesale  item  managers  have  little  visibility  of  retail  spare  parts 
postures  or  weapons  system  availabilities.  Rather,  wholesale  parts  are 
procured  or  repaired  at  rates  calculated  to  achieve  a  chosen  demand  satis¬ 
faction  percentage  without  backorders. 

(4)  Fill  Rate  versus  System  Availability  Criteria.  AVSCOM  computes 
spare  parts  requirements  with  the  objective  of  achieving  a  target  fill  rate. 
Its  goal  is  to  fill  a  selected  percentage  of  all  demands  received  without 
having  to  backorder  parts.  The  item  manager  does  not  base  his  parts  manage¬ 
ment  decisions  on  weapons  system  availability,  and  in  fact,  has  little  or 
no  visibility  of  this  retail  level  criterion.  The  Department  of  Defense 
(DOD)  has  expressed  its  support  for  implementation  of  system  availability- 
driven  parts  requirements  computation  methodologies  in  all  the  armed 
services.  The  primary  difficulty  for  the  Army  is  the  collection  of 
accurate  data  to  drive  such  automated  models. 

d.  Similarity  of  Aircraft  and  Other  Spares  Procurement.  Each  of  the 
MSCs  uses  the  Commodity  Command  Standard  System  (CCSS)  to  meet  its  inven¬ 
tory  management  responsibilities.  The  processes  used  are  essentially  the 
same  for  all  types  of  spares. 

1-6.  EXTENDED  PARCOM  REPRESENTATION  OF  LOGISTICS  ENVIRONMENT.  The 

Extended  PARCOM  "world  view"  of  the  aircraft  part  logistics  system  is  based 
on  the  representation  in  Figure  1-1.  Extended  PARCOM,  however,  has  only 
two  echelons  of  stock  and  repair. 

a.  Wholesale  Level.  This  level  consists  of  the  "depot  stocks"  and 
"depot  maintenance"  blocks  of  Figure  1-1.  Depot  maintenance  is  represented 
in  terms  of  depot  repair  times,  depot  condemnation  rates,  and  ordar  ship 
times  (OST)  between  depot  and  retail  level.  Extended  PAr-COM  treats  initial 
wholesale  stocks  in  four  categories.  Initial  depot  sc  viceables  are  shipped 
to  theater  according  to  a  user-specified  schedule.  Initial  depot  unser- 
viceables  are  repaired  or  condemned  at  depot;  completed  repairs  are  shipped 
to  theater.  Serviceable  war  reserve  stocks  are  assumed  in  place  in  theater. 
Unserviceable  war  reserve  stocks  are  treated  as  failed  parts  and  are  con¬ 
demned  or  shipped  to  repair  as  appropriate. 

b.  Retail  Level.  This  level  is  treated  as  one  pool  (or  "bin")  of  spare 
parts  stocks  consisting  of  all  stocks  at  AVIM  and  AVUM  levels  in  Figure 
1-1.  Retail  maintenance  is  treated  as  an  aggregate  process  and  is  repre¬ 
sented  in  terms  of  retail  repair  times,  not  repairable  this  station  (NRTS) 
percentages,  and  retail  condemnation  rates.  Essentially,  "retail"  repre¬ 
sents  pooled  AVIM  and  AVUM  functions.  Deploying  ASL/PLL  stocks  arrive  in 
theater  according  to  a  user-specified  schedule. 


c.  Distribution  of  Parts  Over  Time.  Extended  PARCOM  distributes  parts 
over  intervals  of  5  days  rather  than  over  individual  days.  All  parts  due 
to  be  received  during  a  given  5-day  interval  are  distributed  uniformly 
throughout  that  interval.  An  exception  is  Day  1  of  the  scenario.  All  parts 
due  in  (or  in  place)  on  Day  1  are  treated  as  received  at  the  beginning  of 
Day  1.  The  categories  of  parts  treated  are: 

(1)  Depot  Serviceables.  These  consist  of  serviceable  parts  located 
at  depot  at  the  start  of  the  scenario.  For  each  part,  the  initial  stock  of 
depot  serviceables  is  entered  in  the  part  data  base  input.  The  scenario 
input  specifies  a  depot  lag,  L,  and  a  depot  distribution  time,  D,  applicable 
to  all  parts,  such  that,  for  each  part,  the  initial  stock  of  depot  service¬ 
ables  is  distributed  (received  at  retail)  uniformly  between  Day  (L  +  1)  and 
Day  (L  +  D). 

(2)  Depot  Unserviceables.  These  consist  of  unserviceable  parts 
located  at  depot  at  the  start  of  the  scenario.  They  are  at  various  stages 
of  the  depot  repair  process  and,  after  repair,  are  to  be  shipped  to  retail. 
Since  a  part  may  be  in  any  state  of  its  repair  cycle,  distribution  of 
uncondemned  depot  unserviceables  for  each  part  is  assumed  uniform  over  an 
interval  equal  to  the  depot  repair  time  (DRT)  for  the  part,  with  the  first 
receipt  (at  retail)  after  a  lag  equal  to  the  order  ship  time  (OST)  for  the 
part.  For  each  part,  the  initial  stock  of  depot  unserviceables,  the  depot 
condemnation  rate  (DC),  the  OST,  and  the  depot  repair  time  are  input  in  the 
part  data  base.  Letting  A  =  number  of  depot  unserviceables.  Extended  PARCOM 
distributes  (1-DC)  x  A  repaired  parts  at  retail  between  Day  (OST  +  1)  and 
Day  (OST  +  DRT). 

(3)  War  Reserve  Serviceables.  These  consist  of  serviceable  parts  in 
the  war  reserve  located  at  retail.  For  each  part,  the  amount  of  the  ser¬ 
viceable  war  reserve  is  input  in  the  parts  data  base.  The  entire  stock  is 
treated  as  available  at  retail  from  the  scenario  start  (Day  1). 

(4)  War  Reserve  Unserviceables.  These  consist  of  unserviceable  war 
reserve  parts  located  at  retail  at  the  start  of  the  scenario.  Some  of 
these  will  be  condemned.  Others  will  be  sent  to  depot  for  repairs.  Others 
are  in  various  stages  of  repair  at  retail.  The  distribution  of  these  parts 
is  as  follows: 

(a)  Items  Repairable  at  Retail.  For  each  part,  let  NRTS  =  the  NRTS 
fraction,  BR  =  the  retail  repair  time,  BC  =  retail  condemnation  rate,  and  A 
=  number  of  war  reserve  unserviceables.  Then,  Extended  PARCOM  simulates 
the  receipt  in  theater,  between  Day  1  and  Day  BR,  of  (1-NRTS)  x  A  x  (1-BC) 
parts  repaired  at  retail.  All  of  these  factors  are  input  in  the  parts  data 
base. 

(b)  Items  not  Repairable  at  Retail.  For  each  part,  let  NRTS  =  the 
NRTS  fraction,  DRT  =  the  depot  repair  time,  DC  =  depot  condemnation  rate, 

OST  =  the  order  ship  time,  and  A  =  number  of  war  reserve  unserviceables. 
Then,  Extended  PARCOM  returns  to  the  theater  (NRTS)  x  A  x  (l-DC)  depot- 
repaired  parts  between  (2  x  OST  +  1)  and  Day  (2  x  OST  +  DRT). 


(5)  ASL/PLL  Deployments.  For  each  part,  the  Extended  PARCOM  parts 
data  base  inputs  on  Day  1  include  total  in-place  ASL/PLL  parts.  In  addi¬ 
tion,  total  ASL/PLL  parts  deployed  after  Day  1  are  input  for  successive 
5-day  intervals  of  the  scenario. 

d.  Users.  Users  of  spare  parts  are  deployed  aircraft.  Extended  PARCOM 
treats  deployed  aircraft  only  at  retail  level.  These  are  augmented  by 
scheduled  deployments  of  additional  aircraft  (from  a  presumed  rear  area) 
during  the  course  of  a  simulated  “war.”  Currently,  Extended  PARCOM  can 
treat  only  a  homogeneous  aircraft  fleet  of  one  type  for  a  single  force. 
Deployed  aircraft  are  subject  to  attrition  based  on  (input)  attrition 
factors.  Combat  is  not  explicitly  represented. 

e.  Failure  Generation.  The  deployed  aircraft  fleet  is  assigned  (via 
input)  a  flying  hour  program,  broken  into  daily  fleet  flying  hour  require¬ 
ments.  Extended  PARCOM  finds  a  cost-effective  mix  of  spare  parts,  which, 
over  the  course  of  the  "war,"  will,  on  average,  achieve  the  set  flying 
program  in  addition  to  specified  daily  aircraft  availability  requirements. 

If  spares  procurement  funds  are  constrained.  Extended  PARCOM  seeks  a  cost- 
effective  spares  mix  achieving  as  much  of  the  flying  program  as  possible. 
Input  failure  rates  for  spare  parts  are  in  terms  of  failures  per  flying 
hour.  In  general,  achieved  flying  hours  interact  with  part  failure  rates 
to  produce  gross  part  failures.  Gross  part  failures  interact  with  issues 
from  initial  spare  inventory  and  the  repair  process  at  depot  and  at  retail 
to  produce  a  net  demand  for  spare  parts  at  user  level.  The  net  demand  for 
spare  parts  at  user  level  then  determines  the  number  of  surviving  aircraft 
that  are  mission  capable  or  not  mission  capable  supply  (NMCS).  As  will  be 
seen  in  the  lext  chapter.  Extended  PARCOM  simulates  all  interactions  in 
expected  value  terms,  i.e.,  in  terms  of  the  proouct  of  an  average  process 
rate  and  the  number  of  items  subjected  to  that  process. 

1-7.  EXTENDED  PARCOM  PROBLEM  SPECIFICATION.  The  basic  purpose  of  Extended 
PARCOM  is  to  generate  cost-effective  mixes  of  add-on  spare  parts  needed  to 
permit  an  aircraft  fleet  of  specified  type  to  achieve  specified  flying  pro¬ 
gram  and  availability  goals  under  various  cost  constraints  and  aircraft 
availability  objectives  for  a  user-specified  part  replacement  policy.  These 
are  described  below  in  summary  fashion.  Additional  detail  may  be  found  in 
the  Extended  PARCOM  User's  Guide. 

a.  Cost  Constraints.  The  two  cost  constraint  modes  are: 

(1)  Unconstrained  Funds  -  where  unlimited  funds  for  procurement  of 
additional  required  parts  are  assumed  available. 

(2)  Constrained  Funds  -  where  a  cost  (funding)  limit  for  add-on  spares 
is  set.  If  unable  to  meet  the  flying  hour,  and  possibly,  availability 
objectives  with  the  limited  funds,  the  model  generates  a  "best"  solution 
mix  with  the  funds  available,  i.e.,  it  seeks  to  maximize  program  flying 
hours  achievable  within  the  funding  constraint. 


b.  Parts  Replacement  Policies.  Whether  or  not  a  failed  critical  part 
degrades  aircraft  flying  hour  productivity  depends  on  the  parts  replacement 
policy  used.  Basic  PARCOM  represented  the  effects  on  only  two  specific 
policies,  full  substitution  and  no  substitution.  These  policies  are  special 
cases  of  the  partial-substitution  policy  capability  of  Extended  PARCOM. 

(1)  Full  and  No  Substitution.  Under  a  no-substitution  policy,  only  a 
spare  may  replace  a  failed  part.  Under  a  full-substitution  policy,  a  failed 
part  may  be  replaced  by  either  a  spare  or,  if  a  spare  is  not  readily  avail¬ 
able,  by  a  serviceable  part  removed  from  an  aircraft  which  is  already  NMC 
(not  mission  capable).  A  third  parts  replacement  policy  is  "NMCS  =  0," 
which  has,  as  a  goal,  the  replacement  of  all  failed  parts  with  spares. 
Basically,  the  "NMCS  =  0"  policy  is  just  a  no-substitution  policy  with  an 
additional  requirement  that  daily  aircraft  availability  be  1.00.  This  var¬ 
iation  is  of  interest  since  it  represents  the  most  expensive  plausible 
policy.  In  a  sense,  all  else  being  equal,  a  full-substitution  policy  is 
associated  with  the  “cheapest"  buy  which  fulfills  the  flying  program,  while 
the  "NMCS  =  0"  policy  is  associated  with  the  "most  expensive"  buy 
(“covering"  all  failures  with  spares). 

(2)  Partial  Substitution.  In  Extended  PARCOM,  a  partial-substitution 
parts  replacement  policy  is  defined  by  partitioning  all  part  types  into  a 
full-sub  set  and  a  no-sub  set.  A  part  type  is  in  only  one  set  and  remains 
in  that  set  throughout  the  scenario.  The  full-substitution  and  no¬ 
substitution  policies  of  the  basic  PARCOM  are  special  cases  of  partial 
substitution  in  which  all  parts  are  either  in  the  full-sub  set  or  in  the 
no-sub  set.  The  analytic  usefulness  of  the  definition  arises  from  the 
consequence  that  any  NMCS  aircraft  will  either  be  awaiting  exactly  one  no¬ 
sub  part  or  at  least  one  full-sub  part  but  will  never  be  awaiting  a  mixture 
of  full-sub  and  no-sub  parts. 

(a)  All  parts  in  the  full-sub  set  operate  with  a  full-substitution 
replacement  policy  relative  to  aircraft  which  are  NMCS  due  to  lack  of  a 
part  from  that  set.  That  is,  a  failed  full-sub  part  on  an  aircraft  may  be 
replaced  either  by  a  spare  (if  available)  or  by  a  serviceable  part  installed 
on  an  NMCS  aircraft  which  is  awaiting  a  full -sub  part,  if  a  spare  is  not 
available.  However,  no  failed  full-sub  part  can  be  replaced  by  any  part 
installed  on  an  NMCS  aircraft  awaiting  a  no-sub  part. 

(b)  Parts  in  the  no-sub  set  operate  with  a  no-substitution  replace¬ 
ment  policy.  That  is,  a  failed  no-sub  part  on  an  aircraft  may  only  be 
replaced  by  a  spare  part.  An  NMCS  aircraft  lacking  a  no-sub  part  may 
neither  receive  a  serviceable  part  from  another  NMCS  aircraft  nor  provide  a 
serviceable  part  to  (fill  a  hole  in)  any  other  NMCS  aircraft. 

c.  Flying  Hour  Objective.  A  flying  hour  objective  is  a  requirement  for 
the  aircraft  fleet  to  achieve  a  specified  number  of  program  flying  hours  on 
each  day  of  the  scenario.  An  input  flying  hour  program  designates  the  daily 
goals.  The  Extended  PARCOM  objective  is  to  generate  a  parts  mix  which  will 
achieve  the  specified  flying  program  at  least  cost. 


d.  Aircraft  Availability  Objective.  An  aircraft  availability  objective 
is  a  requirement  for  a  specific  minimum  aircraft  availability  on  each  day 
(different  days  may  have  different  minimum  required  availabilities).  In 
this  context,  aircraft  availability  =  1  -  NMCS,  where  NMCS  =  the  fraction 
of  surviving  aircraft  in  "not  mission  capable  supply"  status.  An  aircraft 
is  in  an  NMCS  status  if  it  is  nonoperational  because  a  spare  part  is  needed 
but  is  not  available  to  restore  it  to  serviceability.  Specification  of 
availability  objectives  is  in  addition  to  the  flying  hour  objective. 
Specification  of  a  zero  availability  objective  is  equivalent  to  no  avail¬ 
ability  objective  at  all. 

1-8.  SUMMARY  OF  EXTENDED  PARCOM  OUTPUT.  The  following  are  the  basic  types 
of  print  output  produced  by  Extended  PARCOM  for  requirements  problems. 
Details  may  be  found  in  the  Extended  PARCOM  User's  Guide. 

a.  Unconstrained  Cost  Cases 

(1)  Total  Requirement.  The  least-cost  parts  mix  and  costs  required 
to  achieve  the  case  objectives  (flying  program  and  availability)  given  a 
zero  initial  inventory. 

(2)  Residual  Requirement.  The  least-cost  add-on  parts  mix  (to  an 
input  initial  inventory)  and  costs  required  to  achieve  the  case  objectives. 

(3)  Cumulative  Cost  by  Day.  For  each  day  N  (N=l,  2,  ....  through  end 
of  "war"),  the  total  and  the  add-on  cost  of  the  full  parts  requirement  to 
meet  the  case  objectives  through  day  N  only,  i.e.,  it  is  the  cost  of  the 
requirement  for  a  truncated  scenario  of  N  days.  Parts  mix  is  not  shown. 

(4)  Cumulative  Requirement  by  Day.  For  selected  parts,  for  each  day 
N,  the  cumulative  total  and  residual  requirement  needed  (in  the  full  parts 
scenario)  to  meet  the  case  objectives  through  N  days. 

(5)  Dally  Aircraft  Available.  For  each  day  of  the  full  scenario,  the 
fraction  of  surviving  aircraft  which  are  not  NMCS,  assuming  that  the  com¬ 
puted  solution  parts  mix  is  stocked  in  the  theater  war  reserve. 

(6)  Dally  Flying  Hours  per  Aircraft  per  Day.  For  each  day  of  the 
scenario,  the  average  achieved  flying  hours  per  available  aircraft  per  day, 
assuming  that  the  computed  solution  parts  mix  is  stocked  in  the  theater  war 
reserve. 

b.  Constrained  Costs 

(1)  Total  Requirement.  Total  "best"  requirements  mix,  with  zero 
initial  inventory,  that  can  be  bought  with  a  user-specified  funding  limit. 
The  principal  objective  of  a  "best"  mix  is  to  maximize  flying  hour  pro¬ 
ductivity  with  the  constrained  funds. 

(2)  Residual  Requirement.  Best  add-on  (to  input  initial  inventory) 
requirements  mix  that  can  be  bought  with  a  user-specified  funding  limit. 


(3)  Daily  Aircraft  Available.  For  each  day  of  the  full  scenario,  the 
fraction  of  surviving  aircraft  which  are  not  NMCS,  assuming  that  the  com¬ 
puted  constrained  cost  solution  parts  mix  is  stocked  in  the  theater  war 
reserve. 

(4)  Daily  Flying  Hour  Fraction.  For  each  day  of  the  full  scenario, 
the  fraction  of  the  fleet  flying  program  which  can  be  achieved,  assuming 
that  the  computed  constrained  cost  solution  parts  mix  is  stocked  in  the 
theater  war  reserve. 

(5)  Daily  Flying  Hours  per  Aircraft  per  Day.  For  each  day  of  the 
scenario,  the  average  achieved  flying  hours  per  aircraft  per  day,  assuming 
that  the  computed  constrained  cost  solution  parts  mix  is  stocked  in  the 
theater  war  reserve. 

1-9.  TYPICAL  PROBLEMS  ADDRESSED.  A  single  Extended  PARCOM  run  can  provide 
answers  to  several  problems  pertinent  to  a  given  scenario.  From  the  user 
point  of  view,  typical  problem  statements,  given  a  specified  aircraft 
deployment  schedule,  flying  program,  part  replacement  policy,  and  attrition 
scenario  are: 

a.  What  is  the  least  cost  add-on  buy  needed  to  achieve  the  flying  pro¬ 
gram  and  an  NMCS  fraction  not  exceeding  0.15  on  any  day?  What  is  the  asso¬ 
ciated  daily  NMCS  status? 

b.  With  a  budget  limit  of  $10,000,000,  what  spares  should  be  added  to 
current  inventory,  using  a  specified  partial  substitution  policy,  to  in¬ 
crease  to  the  extent  possible  the  fraction  of  the  flying  program  achieved? 
What  is  the  associated  daily  NMCS  status?  What  is  the  associated  fraction 
of  the  flying  program  that  is  achievable? 


CHAPTER  2 
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2-1.  PROCESSING  SEQUENCE.  Extended  PARCOM  is  a  series  of  expected  value 
simulations  of  the  spare  part  requirements  generation  process  for  cases 
defined  by  a  combination  of  parameters  noted  in  the  previous  chapter.  The 
model  determines  a  cost-effective  solution  spares  mix  for  each  case.  In 
addition,  the  model  computes  the  capability  potential  of  the  force  when 
operated  with  each  computed  spares  mix.  The  assessed  capability  potential 
is  in  terms  of  achievable  aircraft  availability  and  fraction  of  the  flying 
hour  program  which  can  be  accomplished.  Figure  2-1  illustrates  the  general 
nature  and  sequence  of  Extended  PARCOM  processing.  The  basic  model  sequence, 
with  logic  diagrams  as  appropriate,  is  described  in  succeeding  paragraphs. 


Figure  2-1.  Extended  PARCOM  Processing  Sequence 
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2-2.  ALGORITHM  FOR  CALCULATING  ALLOWABLE  NMCS  AIRCRAFT.  To  meet  flying 
hour  and  availability  goals,  the  maximum  number  of  aircraft  allowed  to  be 
down  due  to  a  lack  of  parts  (allowable  NMCS  aircraft)  is  determined  for 
each  day.  As  shown  in  Figure  2-2,  separate  minimums  are  computed  for  air¬ 
craft  required  to  meet  the  flying  objective  and  those  required  to  meet  the 
availability  objective  (if  any).  The  larger  of  the  two  minimums  is  sub¬ 
tracted  from  the  number  of  surviving  aircraft  on  each  day  to  yield  the 
"allowable  NMCS  aircraft"  for  that  day.  Within  the  subsequent  processing 
algorithms,  the  "allowable  NMCS  aircraft"  is  converted  to  an  "allowable 
stockout"  for  each  part  and  replacement  policy.  The  "allowable  stockout" 
for  a  part  on  a  day  is  just  the  maximum  number  of  backorders  (unfilled 
demands)  for  the  part  which  will  still  allow  accomplishment  of  the  case 
objective  (flying  hour  and  availability)  on  that  day,  i.e.,  these  are  parts 
that  are  missing  but  which  do  not  have  to  be  bought. 


Figure  2-2.  Extended  PARCOM  Computation  Algorithm  for 
Allowable  NMCS  Aircraft 
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2-3.  UNCONSTRAINED  COST  REQUIREMENTS  ALGORITHM  IN  BASIC  PARCOM.  Extended 
PARCOM  uses  the  requirements  algorithmn  of  basic  PARCOM  as  a  step  in  its 
unconstrained  cost  calculation.  Therefore,  the  logic  of  that  predecessor 
program  is  detailed  below.  Recall  that  basic  PARCOM  only  processed  a  full- 
substitution  replacement  policy  and  a  no-substitution  replacement  policy. 
(The  "NMCS  =  0"  policy  is  just  a  special  case  of  no  substitution.)  The 
calculation  of  allowable  NMCS  aircraft  (described  previously)  is  the  same 
for  both  versions  of  PARCOM. 

a.  Unconstrained  Cost  Full-Substitution  Requirenient.  Figure  2-3  shows 
the  basic  PARCOM  algorithm  used  to  compute  a  requirements  solution  for 
three  parts  replacement  policies  with  unconstrained  costs.  The  difference 
between  full-substitution  and  no-substitution  calculations  is  in  the  way 
that  allowed  stockouts  are  calculated.  Net  demand  is  the  same  for  each. 


Compute  this  day's 
net  demand  and  ... 
altowable  stockouts 
for  this  part. 


'‘'For  ■full  substitution*  and  "NMCS  •  0," 
order  Is  Irrelevant.  For  'no  substitution,* 
order  Is  From  most  to  least  costly. 

Al loved  stockouts  are  based  on  allowed 
NMCS  aircraft  and  part  replacement  policy 


Compute  this  day's 
rqmt  for  this  part 
(Rqmt'Net  demand- 
allowable  stockouts) 


Save 

this  day's 

rqmt 

as  poss- 

Ible 

overall 

rqmt 

for  this 

part 

Print  largest  dally 
rqmt  as  overall 
rqmt  for  this  part 


Figure  2-3.  Basic  PARCOM  Requirements  Computation  Algorithm  for  Unconstrained 
Costs,  "Full  Substitution,"  "No  Substitution."  and  "NMCS  =  0" 
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(1)  Net  demand  (for  all  three  replacement  policies)  for  a  part  at  any 
point  in  time  is  the  cumulative  removals  through  that  time  minus  the  sum  of 
cumulative  returning  repairs  and  issued  inventory.  Removals  are  generated 
as  the  product  of  failure  rate,  part  QPA  (quantity  installed  per  aircraft), 
and  programed  fleet  flying  hours.  Returning  repairs  are  generated  by  having 
removed  parts  cycled  through  a  "repair  pipeline"  and  being  returned  to  the 
theater  spare  pool.  A  positive  net  demand  represents  a  shortage  of  a  part. 

(2)  Under  full  substitution,  the  aircraft  frames  providing  the  sources 
of  parts  substituted  for  failed  parts  when  spares  unavailable  are  consoli¬ 
dated  to  the  minimum  possible  number,  i.e.,  there  will  be  a  maximum  overlap 
of  aircraft  frames  providing  missing  parts.  Because  of  this  overlap,  the 
spare  parts  requirements  for  each  part  may  be  independently  computed.  For 

a  full-substitution  policy,  the  allowable  stockout  for  a  part  on  any  day  is 
the  product  of  allowable  NMCS  aircraft  for  that  day  and  the  part  QPA. 

(3)  As  indicated  by  Figure  2-3,  the  minimum  spare  requirement  for  a 
part  needed  to  achieve  the  case  objective  on  any  day  is  the  net  demand  for 
that  part  minus  the  allowable  stockout.  The  overall  spare  requirement  for 
a  part  is  the  largest  of  the  daily  minimum  spare  requirements  for  that 
part.  It  is  a  least-cost  solution  because  it  is  the  smallest  purchase  of 
that  part  which  will  permit  the  case  objective  to  be  met  on  all  days. 

b.  Unconstrained  Cost  "NMCS  =  0"  Requirement.  The  "NMCS  =  0"  policy 
corresponds  to  the  case  in  which  100  percent  aircraft  availability  is 
required  every  day.  In  such  a  case,  allowed  NMCS  aircraft  and  allowable 
stockout  both  must  be  zero  every  day.  The  "NMCS  *  0"  case  could  be  con¬ 
sidered  a  special  case  of  full  substitution  with  a  100  percent  aircraft 
availability  objective  (the  no-substitution  case  with  that  objective  would 
yield  the  same  answer,  because  substitution  policy  is  irrelevant  when  no 
stockouts  are  allowed).  The  spares  required  by  the  solution  to  the 

"NMCS  =  0"  case  also  can  be  interpreted  as  the  total  expected  net  demand 
for  a  part  during  the  war.  It  is  a  least-cost  solution  because  any  amount 
less  than  that  required  to  meet  the  expected  demand  will  create  an  NMCS 
aircraft,  i.e.,  will  not  meet  the  case  objective. 

c.  Unconstrained  Cost  No-Substitutlon  Requirement 

(1)  Under  no  substitution,  the  stockouts  generated  by  parts  removals 
in  excess  of  on-hand  spares  must  each  be  associated  with  separate  aircraft 
frames.  Every  missing  part  results  in  an  inoperable  (NMCS)  aircraft.  It 
is  most  cost  effective,  therefore,  to  assign  the  allowed  stockout  (allowed 
number  of  NMCS  aircraft)  to  the  most  expensive  parts.  For  example,  if  50 
aircraft  are  allowed  to  be  NMCS  and  a  shortage  exists  of  50  expensive  parts 
and  50  cheap  ones,  the  50  cheap  ones  need  to  be  bought.  If  75  expensive 
parts  and  50  cheap  ones  are  short,  there  will  be  no  choice  but  to  buy  25 
expensive  ones  (leaving  50  unbought)  and  50  cheap  ones,  in  order  to  best 
meet  the  case  objective. 
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(2)  The  algorithm  of  Figure  2-3  also  applies  to  the  no-substitution 
and  "NMCS  =  0"  requirements.  Under  no  substitution,  an  allowed  stockout 
equates  to  an  allowed  NMCS  aircraft;  and  the  total  allowed  stockout,  over 
all  parts,  equals  the  total  allowed  NMCS  aircraft  for  that  day.  However, 
allowed  stockout  calculations  for  individual  parts  are  interdependent, 
i.e.,  the  calculations  for  the  first  part  affect  those  of  the  second,  etc. 
The  interdependence  occurs  because  there  is  no  overlap/consolidation  of 
stockout  effects  (as  was  the  case  for  full  substitution).  During  the  no¬ 
substitution  calculations,  basic  PARCOM  determines  allowed  stockout  and  net 
demand  in  decreasing  order  of  part  unit  cost,  i.e.,  for  the  most  expensive 
parts  first.  The  aspects  of  algorithm  operation  affected  by  differences  in 
substitution  policy  are  summarized  in  Table  2-1. 


Table  2-1.  Differences  In  Application  of  Basic  PARCOM 
Unconstrained  Cost  Requirements  Algorithm  by  Policy 


■ 

Policy 

Algorithm  procedure/calculation  | 

Allowable  stockout 

Order  of  processing 

j  Full-sub 

No-sub 

■:  NMCS  =  0 

Allowed  NMCS  acft  x  QPA 

Allowed  NMCS  acft 

0 

Irrelevant  . 

By  decreasing  part  cost 

Irrelevant 

2-4.  UNCONSTRAINED  COST  REQUIREMENTS  ALGORITHM  IN  EXTENDED  PARCDM 

a.  Partial -substitution  Concept  Definition.  Prior  to  describing  the 
requirements  calculation  algorithms,  it  is  important  to  describe  the  speci¬ 
fic  representation  of  a  partial-substitution  replacement  policy  in  Extended 
PARCOM.  A  partial-substitution  parts  replacement  policy  is  defined  by  a 
user-specified  partitioning  of  all  part  types  into  a  full-sub  set  and  a  no¬ 
sub  set.  A  part  type  is  in  only  one  set  and  remains  in  that  set  throughout 
the  scenario.  These  sets  are  defined  as  follows: 

(1)  All  parts  in  the  full-sub  set  operate  with  a  full-substitution 
replacement  policy  relative  to  aircraft  which  are  NMCS  due  to  lack  of  a 
part  from  that  set.  That  is,  a  failed  full-sub  part  on  an  aircraft  may  be 
replaced  either  by  a  spare  (if  available)  or  by  a  serviceable  part  installed 
on  an  NMCS  aircraft  which  is  awaiting  a  full-sub  part,  if  a  spare  is  not 
available.  However,  no  failed  full-sub  part  can  be  replaced  by  any  part 
installed  on  an  NMCS  aircraft  awaiting  a  no-sub  part. 


(2)  Parts  in  the  no-sub  set  operate  with  a  no-substitution  replace¬ 
ment  policy.  That  is,  a  failed  no-sub  part  on  an  aircraft  may  only  be 
replaced  by  a  spare  part.  An  NMCS  aircraft  lacking  a  no-sub  part  may 
neither  receive  a  serviceable  part  from  another  NMCS  aircraft,  nor  may  it 
provide  a  serviceable  part  to  (fill  a  "hole")  in  any  other  NMCS  aircraft. 

b.  Selection  of  Full-sub  Parts.  Before  requirements  processing  begins 
in  Extended  PARCOM,  a  full-sub  and  a  no-sub  part  set,  applicable  over  all 
scenario  days,  must  be  defined.  One  option  allows  the  user  to  specify 
those  part  types  which  comprise  the  full-sub  set.  By  default,  all  non- 
specified  parts  are  presumed  to  be  in  the  no-sub  set.  However,  the  model 
has  another  option,  allowing  the  user  to  specify  four  screening  limits— LI, 
L2,  L3,  and  L4.  With  these  limits,  the  model  selects  a  part  type  for  the 
full -sub  set  if  at  least  one  of  the  following  apply: 

•  The  (input)  depot  repair  cycle  time  for  the  part  exceeds  LI  days, 

and  the  not  repairable  this  station  (NRTS)  fraction  exceeds  zero. 

•  The  (input)  NRTS  fraction  for  the  part  exceeds  L2. 

•  The  (input)  retail  repair  time  for  the  part  exceeds  L3. 

•  The  (input)  failure  rate  for  the  part  exceeds  L4. 

c.  Partial -substitution  Algorithm  Logic.  Figure  2-4  shows  the  sequence 
of  processing  in  Extended  PARCOM  for  unconstrained  cost  requirements.  The 
sequence  of  operations  is: 

(1)  Partition  all  part  types  into  a  full-sub  set  and  a  no-sub  set  as 
defined  in  paragraph  2-4a. 

(2)  Calculate  the  allowable  NMCS  aircraft  for  each  day. 

(3)  For  each  day: 

(a)  Generate  all  possible  nonnegative  integer  combinations  (AF,  AN) 
(for  full-sub  and  no-sub,  respectively)  such  that  AF  +  AN  =  allowable  NMCS 
aircraft  for  that  day. 

(b)  For  each  integer  combination  (AF,  AN),  compute  a  basic  PARCOM 
full-sub  solution  over  only  the  full-sub  part  set  for  the  scenario  through 
that  day,  assuming  AF  allowed  NMCS  aircraft  (awaiting  full-sub  parts)  for 
that  day.  Also  compute  a  basic  PARCOM  no-sub  solution  over  only  the  no-sub 
part  set  for  the  scenario  through  that  day,  assuming  AN  allowed  NMCS  air¬ 
craft  (awaiting  no-sub  parts)  for  that  day.  Calculate  the  total  solution 
cost  for  the  combination  (AF,  AN)  as  the  sum  of  the  costs  for  the  full -sub 
and  no-sub  solutions  described  above. 
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(c)  Select  the  solution  for  the  combination  (AF,  AN)  yielding  the 
mlnimuin  total  solution  cost.  This  solution  determines  the  requirements  for 
each  part  on  that  day  and  is  called  the  day  requirement.  The  combination 
(AF,  AN)  used  in  the  selected  solution  then  becomes  the  allowed  stockout 
used  during  cumulative  (from  Day  1)  calculations  on  all  succeeding  scenario 
days. 

(4)  After  all  days  are  processed,  select  the  largest  (over  all  sce¬ 
nario  days)  of  the  computed  day  requirements  for  each  part  as  the  overall 
requirement.  The  logic  for  computing  a  basic  PARCOM  solution  is  described 
in  paragraph  2-3.  The  above  algorithm  tends  toward  a  least-cost  solution 
mix  (assuming  unconstrained  funds)  for  the  partial-substitution  replacement 
policy  defined  by  the  full-sub/no-sub  partition  of  the  part  data  base. 

2-5.  CONSTRAINED  COST  REQUIREMENTS  ALGORITHM  IN  BASIC  PARCOM.  While  the 
unconstrained  cost  solution  is  the  one  that  best  meets  the  flying  program, 
a  full  requirements  buy  may  not  be  affordable  if  funds  are  limited.  With 
constrained  costs,  a  user  wishes  to  apply  limited  funds  to  buy  a  cost- 
effective  slice  of  the  full  requirements.  Basic  PARCOM  only  treated  the 
constrained  cost  case  for  a  no-substitution  policy.  Neither  full  substi¬ 
tution  nor  partial  substitution  were  addressed.  Extended  PARCOM  incorpor¬ 
ates  a  method  for  deriving  cost-effective  constrained  cost  requirements 
under  partial  substitution.  For  a  no-substitution  policy,  the  Extended 
PARCOM  constrained  cost  algorithm  yields  the  same  solution  as  the  basic 
PARCOM  constrained  cost  algorithm.  Since  the  Extended  PARCOM  algorithm 
uses  the  constrained  cost  algorithm  of  basic  PARCOM  at  one  stage  of  its 
computation,  foundation  logic  from  that  predecessor  model  is  presented 
first.  In  basic  PARCOM  after  the  unconstrained  cost  no-substitution 
requirements  are  computed,  they  become  the  basis  for  the  constrained  cost 
solution.  A  cost  limit  on  spares  is  input  along  with  the  other  scenario 
and  objective  data.  A  constrained  cost  parts  mix  can  be  constructed  by  the 
simulated  purchase,  in  order  of  increasing  part  unit  cost,  of  the  part 
requirements  for  the  unconstrained  cost  solution  until  the  available  funds 
are  exhausted.  That  would  entail  the  procurement,  within  the  fund  limit, 
of  the  largest  possible  number  of  affordable  parts  from  the  unconstrained 
cost  solution.  However,  another  characteristic  of  such  a  constrained  cost 
parts  mix  is  that  it  is  the  mix  which  has  the  fewest  unbought  (hence, 
unstocked)  items  from  the  unconstrained  cost  solution.  The  basic  PARCOM 
algorithm,  shown  in  Figure  2-5,  arrives  at  its  solution  by  calculating 
unbought  items.  Initially,  it  "spends"  the  full  cost  of  the  unconstrained 
cost  requirements  mix,  assuming  it  to  be  the  constrained  cost  solution. 
Basic  PARCOM  subsequently  selects  the  fewest  number  of  items  to  remove  from 
that  solution  until  the  remaining  parts  mix  is  priced  at  the  input  cost 
limit.  Because  the  programed  algorithm  solves  by  "unbuying"  items  rather 
than  "buying"  them,  parts  are  processed  in  decreasing  order  of  part  unit 
cost.  Notice  that  under  a  policy  of  no  substitution,  each  unbought  item 
(regardless  of  part  type)  creates  an  NMCS  aircraft.  Therefore,  our 
constrained  cost  solution  mix  minimizes  the  instances  of  NMCS  created  by 
the  constrained  funds.  The  solution  tends,  heuristically,  toward  the 
achievement  of  maximum  cumulative  flying  hours. 
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Figure  2-5.  Basic  PARCOM  Requirements  Computation  Algorithm 
for  Constrained  Cost  with  No  Substitution 


2-6.  CONSTRAINED  COST  REQUIREMENTS  ALGORITHMS  IN  EXTENDED  PARCOM.  Figure 
2-6  shows  the  logic  for  constrained  cost  calculations  in  Extended  PARCOM. 
Since  no  single  algorithm  yielding  optimum  results  for  all  cases  was  found, 
the  Extended  PARCOM  logic  employs  two  separate  algorithms  represented  by 
the  branches  labeled  "algorithm  1"  and  "algorithm  2"  in  the  figure.  These 
algorithms  compute  separate  trial  solutions.  Each  computed  solution  is 
assessed  in  terms  of  the  fleet  program  flying  hour  productivity  which  it 
contributes.  The  trial  solution  yielding  the  larger  flying  hour  produc¬ 
tivity  is  selected  as  the  final  solution.  The  component  algorithms  of 
Figure  2-6  are  explained  below. 
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a.  Constrained  Cost  Algorithm  1  Solution.  The  previously  computed 
unconstrained  cost  requirements  solution  is  partitioned  into  the  set  of 
requirements  for  no-sub  parts  and  the  set  of  requirements  for  full -sub 
parts.  In  Figure  2-6,  these  are  denoted  as  "no-sub  part  set  only"  and 
"full -sub  part  set  only."  The  "no-sub  part  set  only"  is  taken  as  the 
unconstrained  cost  no-sub  requirement  which  the  basic  PARCOM  no-substi¬ 
tution  constrained  cost  algorithm  (Figure  2-5)  operates  on,  using  the 
input-specified  cost  limit  (LIM  in  Figure  2-6),  to  yield  a  cost  effective 
solution  mix  of  no-sub  parts.  From  this  procedure,  there  are  two  possible 
outcomes:  either  the  entire  cost  limit  is  spent,  or  only  a  portion  of  the 
cost  limit  is  spent.  Each  outcome  yields  a  different  algorithm  1  solution 
as  follows: 

(1)  In  the  first  outcome,  the  basic  PARCOM  solution  mix  cost,  C, 
equals  the  cost  limit.  That  mix  of  no-sub  parts  is  then  taken  as  the  al¬ 
gorithm  1  solution. 

(2)  In  the  second  case,  the  cost  of  the  basic  PARCOM  solution  mix 
will  be  less  than  the  cost  limit.  That  solution  mix  is  then  assumed  bought, 
and  its  associated  cost,  C,  is  assumed  spent.  The  unspent  portion,  FLIM, 

of  the  cost  limit  is  then  calculated.  Computation  of  the  algorithm  1 
solution  then  continues  by  using  the  FLIM  dollars  to  buy  the  most  cost- 
effective  portion  of  the  "full-sub  part  set  only,"  as  follows: 

(a)  One  product  of  the  Extended  PARCOM  unconstrained  cost  solution 
is  a  list  showing,  for  each  day,  the  cumulative  total  cost  of  all  full-sub 
parts  in  the  unconstrained  cost  requirement  for  the  scenario  truncated  at 
that  day.  Algorithm  1  determines  D,  the  last  day  for  which  the  associated 
cumulative  requirement  cost  of  full-sub  parts  is  less  than  or  equal  to  the 
unspent  funds,  FLIM. 

(b)  Next,  algorithm  1  generates  an  Extended  PARCOM  unconstrained 
cost  solution  for  the  scenario  truncated  at  that  day.  The  full-sub  parts 
required  in  that  solution  are  denoted  in  Figure  2-6  as  the  "constrained 
cost  requirements  solution  for  full  substitution."  These  full-sub  parts 
are  combined  with  the  no-sub  solution  mix  previously  bought  to  form  the 
full  algorithm  1  solution  for  the  second  case. 

b.  Constrained  Cost  Algorithm  2  Solution.  Figure  2-7  shows  the  logic 
of  algorithm  2.  One  product  of  the  Extended  PARCOM  unconstrained  cost 
solution  is  a  list  showing,  for  each  scenario  day,  the  cumulative  cost  of 
all  parts  (full-sub  and  no-sub)  that  would  be  required  under  unconstrained 
cost  if  the  war  was  truncated  at  that  day.  The  algorithm  determines  D,  the 
last  day  on  that  list,  for  which  the  associated  cost  is  less  than  or  equal 
to  the  input  cost  limit.  Next,  the  algorithm  operates  Extended  PARCOM  in 
the  unconstrained  cost  mode  for  a  scenario  of  length  D.  The  resulting 
(unconstrained  cost)  solution  is  taken  as  the  algorithm  2  solution. 
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Figure  2-6.  Extended  PARCOM  Requirements  Computation  Algorithm 
for  Constrained  Cost  with  Partial  Substitution 
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Figure  2-7.  Extended  PARCOM  Constrained  Cost  Algorithm  2 


c.  Solution  Selection.  The  preferred  solution  mix,  of  those  generated 
by  the  two  algorithms,  is  the  one  which  yields  the  maximum  program  flying 
hour  productivity  in  the  scenario.  The  model,  therefore,  does  two  separate 
current  inventory  capability  assessments  based  on  each  algorithm  solution 
being  bought  and  stocked.  The  add-on  solution  requirement  is  assumed  to  be 
added  to  the  theater  war  reserve.  The  final  constrained  cost  solution  is 
the  one  for  which  the  associated  capability  assessment  yields  the  larger 
value  for  average  fraction  of  total  flying  hour  program  achieved  (FI  or  F2 
in  Figure  2-6). 

2-7.  CAPABILITY  ASSESSMENT  OF  UNCONSTRAINED  COST  SOLUTIONS.  Figure  2-8 
illustrates  the  Extended  PARCOM  computation  algorithm  for  capability  assess¬ 
ment  of  the  unconstrained  cost  requirements  solutions.  After  an  uncon¬ 
strained  cost  solution  mix  is  computed.  Extended  PARCOM  generates  a  record 
of  daily  and  average  fleet  operational  capability  achievable  by  stocking 
each  computed  requirement  in  the  war  reserve,  i.e.,  the  new  initial  inven¬ 
tory  is  assumed  to  be  the  sum  of  the  computed  requirement  and  the  original 
initial  inventory.  For  each  computed  unconstrained  cost  requirements  mix, 
the  model  generates  a  record  of  achieved  daily  and  average  aircraft  avail¬ 
ability  and  achieved  flying  hours  per  available  aircraft  per  day.  The 
achieved  program  flying  hours  are  simply  the  desired  program  flying  hours, 
by  the  definition  of  an  unconstrained  cost  solution.  Within  the  algorithm, 
each  day's  calculations  consist  of  a  full-sub  assessment  phase  and  a  no-sub 
assessment  phase,  followed  by  a  consolidated  computation.  Each  full-sub 
phase  treats  only  NMCS  aircraft  created  by  stockouts  of  full -sub  parts. 

For  a  full-substitution  policy,  a  single  NMCS  aircraft  may  have  demands  for 
several  different  parts.  In  this  case,  the  total  number  of  NMCS  aircraft 
created  is  the  largest  value,  over  all  full-sub  parts,  of  the  quotient  of 
net  demand  divided  by  QPA  for  each  full-sub  part  type.  The  no-sub  phase 
treats  only  NMCS  aircraft  created  by  stockouts  of  no-sub  parts.  For  a  no¬ 
substitution  policy,  each  net  demand  creates  a  single  NMCS  aircraft.  In 
this  case,  the  total  number  of  NMCS  aircraft  created  is  the  sum  of  net 
demand  over  all  no-sub  parts.  At  the  end  of  daily  processing,  the  consol¬ 
idated  total  NMCS  aircraft  for  the  day  is  calculated  as  the  sum  of  the  NMCS 
aircraft  results  from  the  two  phases.  Under  our  definition  of  partial 
substitution,  each  NMCS  aircraft  is  down  due  to  either  at  least  one  needed 
full-sub  part  or  to  a  single  needed  no-sub  part,  but  not  to  a  needed  com¬ 
bination  of  the  two  types.  Therefore,  the  order  of  performing  the  phases 
is  irrelevant.  For  each  day,  the  number  of  NMCS  aircraft  is  subtracted 
from  the  number  of  surviving  aircraft  to  yield  available  aircraft. 
Availability  is  then  the  ratio  of  available  to  surviving  aircraft.  Flying 
hours  per  available  aircraft  is  just  the  daily  program  flying  hours  divided 
by  the  number  of  available  aircraft  for  the  day. 


Figure  2-8.  Extended  PARCOM  Computation  Algorithm  for 
Unconstrained  Cost  Capability  Assessment 


2-8.  CAPABILITY  ASSESSMENT  OF  CONSTRAINED  COST  SOLUTION  MIXES.  Extended 
PARCOM  also  generates  the  daily  fleet  availability  and  flying  hour  capa¬ 
bility  achieved  with  a  constrained  cost  solution  mix  or  with  current  inven¬ 
tory.  Computation  logic  is  shown  in  Figure  2-9.  By  current  inventory  is 
meant  any  user-specified  inventory  (with  an  add-on  cost  constraint  of  zero). 
This  is  in  contrast  to  the  "required  inventory"  as  assessed  above.  The 
basic  logic  of  assessment  of  current  inventory  in  Extended  PARCOM  is  the 
same  as  in  the  basic  PARCOM.  With  unconstrained  cost,  net  demand  was  based 
on  the  entire  planned  flying  hour  program  being  flown.  For  a  constrained 
cost  or  current  inventory  mix,  some  unknown  (at  first)  number  of  hours  will 
be  flown.  That  number  must  initially  be  estimated;  and  an  iterative 
approach,  as  shown  in  Figure  2-9,  applied  to  determine  NMCS  aircraft, 
availability,  and  achievable  program  flying  hours.  For  each  day,  there¬ 
fore,  a  starting  estimate  of  flying  hours  flown  is  made.  The  starting 
(first  day's)  estimate  is  the  desired  program  flying  hours.  Then,  net  de¬ 
mand,  as  based  on  the  estimated  flying  hours,  is  computed,  followed  by 
computation  of  implied  NMCS  aircraft  (generated  by  the  estimated  flying 
hours),  achievable  flying  hours  (based  on  aircraft  available  if  implied 
NMCS  aircraft  are  really  NMCS),  and  flying  hours  per  available  aircraft. 

The  achievable  flying  hours  are  compared  with  the  estimated  flying  hours 
flown.  If,  based  on  input  thresholds,  they  are  close  enough,  the  itera¬ 
tions  stop.  Iterations  also  stop  after  an  input-specified  number  of  them 
have  been  performed.  If  iterations  continue,  the  calculations  are  repeated 
based  on  a  new  starting  estimate  of  flying  hours  equal  to  the  average  of 
the  estimated  and  the  achieved  flying  hours.  After  iterations  for  a  day 
are  completed,  the  available  aircraft  for  the  day  and  their  flying  hour 
potential  are  calculated  based  on  the  last  calculation  of  NMCS  aircraft  and 
on  the  maximum  flying  hour  potential  per  aircraft  per  day  (an  input). 
Processing  for  the  next  day  uses  a  starting  estimate  of  flying  hours  equal 
to  the  program  flying  hours  for  that  day  or  the  flying  hour  potential  of 
the  surviving  non-NMCS  aircraft  on  that  day,  whichever  is  smaller. 

2-9.  EXAMPLE.  The  algorithm  logic  described  in  the  previous  paragraphs 
can  be  better  understood  through  use  of  a  manual  example.  The  tables  to 
follow  portray  a  stylized  but  useful  hypothetical  example  which  utilizes 
only  "back-of-the  envelope"  calculations.  The  tables  all  apply  to  one  case 
and  are  presented  in  the  same  sequence  as  the  model  algorithms  described  in 
the  previous  paragraph. 
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Figure  2-9.  Extended  PARCOM  Computation  Algorithm  for  Constrained 
Cost/Current  Inventory  Capability  Assessment 


a.  Parts  Data  Base.  Tables  2-2  through  2-4  show  a  parts  data  base  for 
four  part  types.  Recall  that  failure  rate  is  in  terms  of  failures  per 
flying  hour,  and  QPA  =  number  of  parts  installed  per  operational  aircraft. 
The  last  column  of  Table  2-4  is  the  computed  repair  cycle  calculated  from 
the  other  data  in  that  row;  e.g.,  for  Part  1  the  repair  cycle  =  2  x  OST  + 
depot  repair  time  =  3  days.  The  repair  cycle  for  a  part  is  defined  as  the 
average  time  between  failure  of  a  part  and  its  (repaired)  return  to  the 
retail  spare  pool.  Only  the  repair  cycle  entry  will  be  used  in  succeeding 
calculations  because  it  includes  the  effects  of  the  other  data  in  Table 
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Part 


Table  2-2.  Part  Characteristic  Data 


Failure 

Unit 

Substitution 

rate 

QPA 

cost 

class 

(per  fly 

(J) 

hour) 

.08 

1 

40 

Full-sub 

.02 

1 

50 

Full-sub 

.06 

1 

400 

No-sub 

.02 

1 

30 

No-sub 

Table  2-3.  Initial  Stock  Distribution  Data 


Addition  to  initial  stock 


Part 


L 

,) 

5 


In-place 
Day  1 

Day  2 

Day  3 

Day  4 

Day  5 

Total 

initial  stock 

90 

40 

40 

40 

40 

250 

6 

1 

1 

1 

1 

10 

220 

10 

10 

10 

10 

260 

30 

0 

0 

0 

0 

30 

Table  2-4.  Part  Repair  Time  Data 


Part 

OST 

(days) 

Depot 

repair 

time 

(days) 

Retail 

repair 

time 

(days) 

NRTS 

(fraction) 

Depot 

condemned 

(fraction) 

Retail 

condemned 

(fraction) 

Repair 

cycle 

(days) 

1 

1 

1 

0 

1.00 

0 

0 

3 

2 

0 

0 

3 

.00 

0 

0 

3 

3 

1 

2 

0 

1.00 

0 

0 

4 

4 

0 

0 

2 

.00 

0 

0 

2 

b.  Definition  of  Policy.  As  noted  in  Table  2-2,  Part  1  and  Part  2  are 
designated  for  the  full-sub  sqz  while  Part  3  and  Part  4  comprise  the  no-sub 
part  set. 

c.  Scenario  Data  Base.  Table  2-5  shows  the  scenario  data  for  the  case. 

A  5-day  "war"  is  shown.  The  aircraft  status  (deployed,  lost)  entries  are 
for  the  start  of  the  associated  day  of  the  war.  Thus,  for  example,  50  air¬ 
craft  are  newly  deployed  at  the  start  of  day  2.  By  "cumulative  aircraft 
deployed"  is  meant  all  aircraft  deployed  in  theater  from  the  start  of  the 
war  through  the  given  day.  No  aircraft  are  assumed  withdrawn  once  deployed. 
Computed  "cumulative  aircraft  surviving"  entries  are  defined  by  the  differ¬ 
ence  between  "cumulative  aircraft  deployed"  and  "cumulative  aircraft  lost." 
Since,  for  simplicity,  our  example  shows  a  zero  aircraft  attrition  rate, 
surviving  aircraft  are  equal  to  deployed  aircraft.  The  "program  flying 
hours"  column  gives  the  flying  hour  objective  in  terms  of  required  program 
flying  hours  for  the  fleet  on  each  day.  The  last  column  gives  the  avail¬ 
ability  objective  in  terms  of  an  input-specified  daily  minimum  (fleet) 
aircraft  availability  required  each  day.  The  input-specified  "maximum 
flying  hours  per  aircraft  per  day"  is  also  noted  at  the  bottom  of  Table 
2-5. 


Table  2-5.  Scenario  Data 


Day 

Cumulative 

aircraft 

Cumulative 

aircraft 

Cumulative 

aircraft 

Program 

flying 

Minimum 

aircraft 

deployed 

lost 

surviving 

hours 

availability 

d.  Calculation  of  Daily  Allowable  NMCS  Aircraft.  Table  2-6  shows  re¬ 
sults  of  the  calculation  of  allowable  NMCS  aircraft  for  each  day.  Each 
result  in  the  rightmost  column  is  the  surviving  aircraft  minus  the  larger 
of: 

(1)  The  minimum  aircraft  required  to  achieve  the  daily  flying  hour 
objective,  for  each  day,  computed  as  "program  flying  hours"  divided  by 
"maximum  flying  hours  per  aircraft  per  day." 

(2)  The  minimum  aircraft  required  to  achieve  the  daily  availability 
objective,  for  each  day,  computed  as  the  product  of  "surviving  aircraft" 
and  "minimum  aircraft  availability."  Component  calculations  for  the  first 
day,  using  the  data  of  Table  2-5,  are  shown. 


Table  2-6.  Calculation  of  Allowable  NMCS  Aircraft 


Day 

Minimum  aircraft  required 

Allowable 
NMCS  acft 

Flying  hour 
objective 

Availability 

objective 

1 

500/10  =  50 

150*. 10  =  15 

150-50  =  100 

2 

100 

18 

100 

3 

100 

18 

100 

4 

150 

18 

50 

5 

150 

18 

50 

e.  Unconstrained  Cost  Residual  Requirement.  The  full  set  of  algorithmic 
calculations  is  too  complex  to  represent.  The  Extended  PARCOM  algorithm 
consists  of  calculation  and  cost  comparison  of  a  large  number  of  basic 
PARCOM  full-substitution  and  no-substitution  solutions  using  the  full-sub 
and  the  no-sub  part  sets,  respectively.  However,  two  of  these  solutions 
for  one  value  of  AF  and  the  consequent  values  of  AN  (see  Figure  2-4)  which 
serve  as  the  base  of  the  Extended  PARCOM  solution  are  illustrated  below. 
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(1)  The  full-sub  solution  with  zero  allowed  stockouts  (AF  =  0)  is 
illustrated  in  Tables  2-7  and  2-8  for  those  parts  in  the  full-sub  set. 

Each  "cumulative  net  demand"  entry  is  just  the  "cumulative  failures"  minus 
the  sum  of  the  "cumulative  returning  repairs"  and  the  cumulative  initial 
stock  distributed  (from  Table  2-3).  "Cumulative  failures"  is  based  on  the 
program  hours  being  flown  and  is  computed  by  accumulating  (over  days)  the 
product  of  failure  rate,  QPA,  and  program  flying  hours  for  each  day  (as 
taken  from  Tables  2-2  and  2-5).  The  "cumulative  returning  repairs"  entries 
are  the  "cumulative  failures"  entries  lagged  by  3  days  (the  repair  cycle 
from  Table  2-4).  Any  condemnations  (our  case  has  none)  would  have  to  be 
deducted  from  the  lagged  failures.  If  R  is  the  length  of  the  repair  cycle 
for  a  part  (see  Table  2-4),  Extended  PARCOM  treats  all  noncondemned  failures 
occurring  by  the  start  of  day  n  as  being  returned  to  the  retail  spare  pool 
at  the  start  of  day  n  +  R.  If  a  part  has  both  a  depot  repair  cycle  and  a 
retail  repair  cycle.  Extended  PARCOM  would  partition  repairs  over  the  two 
cycles.  In  our  simplified  example.  Part  1  has  only  a  depot  repair  cycle  of 
3  days  while  Part  2  has  only  a  retail  repair  cycle  of  3  days.  The  "day 
requirement"  is  calculated  as  the  larger  of  zero  and  (cumulative  net  demand 
minus  allowable  stockouts).  Since  this  case  has  a  zero  allowed  stockout, 
the  day  requirement  is  equal  to  the  cumulative  net  demand.  The  overall 
requirement  for  each  part  is  determined  as  the  largest  value  (over  days)  of 
the  "day  requirement"  entries.  It  is  circled  in  each  table.  Component 
calculations  are  based  on  the  data  of  Tables  2-2  through  2-6  and  are  shown 
for  the  first  day  and,  partly,  for  the  last  day.  Because  allowed  stockouts 
=  0  for  this  case,  the  solution  shown  is  also  an  "NMCS  =  0"  solution  in 
basic  PARCOM. 


Table  2-7.  Unconstrained  Cost  Residual  Requirement  with 
Full-Substitution,  Allowed  Stockouts  =  0  (Part  1) 


Day 

Cumulative 
f ai 1 ures 

Cumulative 

returning 

repairs 

Cumulative 
initial  stk 
distributed 

Cumulative 
net  demand 
(=  day  rqmt) 

1 

.08*500=40 

0 

90  max  (0,40-90)  =  0 

2 

120 

0 

130 

0 

3 

200 

0 

170 

30 

4 

320 

40 

210 

70 

5 

440 

120 

250 

440-370  <7^ 

p-?n 


Table  2-8.  Unconstrained  Cost  Residual  Requirement  with 
Full  Substitution,  Allowed  Stockouts  =  0  (Part  2) 


Day 

Cumulative 

failures 

Cumulative 

returning 

repairs 

Cumulative 
initial  stk 
distributed 

Cumulative 
net  demand 
(=  day  rqmt) 

1 

.02*500=  rj 

0 

6 

max  (0,  10-6)  =4 

2 

0 

7 

23 

3 

DU 

0 

8 

42 

4 

30 

10 

9 

61 

5 

liu 

30 

10 

110-40  =C7^ 

(2)  The  no-sub  solution  from  basic  PARCOM  is  shown  in  Tables  2-9  and 
2-10  for  those  parts  in  the  no-sub  set.  The  tables  are  presented  in  the 
required  sequence  of  computations,  i.e.,  the  more  expensive  no-sub  part 
(Part  3)  is  processed  first.  The  "cumulative  net  demand"  is  computed  in 
the  same  way  as  for  Part  1  and  Part  2  above.  The  day  requirement  is  just 
the  cumulative  net  demand  (the  shortage  on  that  day)  minus  the  allowable 
stockout  (the  allowed  shortage)  for  that  day  (but  not  less  than  zero). 

Under  no  substitution,  daily  allowed  stockout  is  equal  to  daily  allowable 
NMCS  aircraft  (computed  in  Table  2-6).  The  overall  Part  3  requirement  is 
the  circled  largest  day  requirement.  The  Part  3  requirement  is  treated  as 
"purchased"  during  further  processing  (for  other  no-sub  part  requirements). 
Table  2-10  shows  the  calculation  of  the  next  no-sub  part  requirement  which 
must  be  for  the  next  most  expensive  no-sub  part  (i.e..  Part  4  in  our 
example).  The  purchase  of  the  Part  3  requirement  augments  the  initial 
inventory  for  that  part.  Therefore,  the  old  cumulative  net  demand  for  Part 
3  in  Table  2-9  is  reduced  by  the  purchased  requirement  for  that  part  to 
generate  the  new  cumulative  net  demand  for  that  part.  Since  the  computed 
requirement  was  zero,  the  new  cumulative  net  demand  for  Part  3  equals  the 
old  cumulative  net  demand  in  this  example.  The  new  cumulative  net  demand 
for  Part  3  is  also  the  number  of  stockouts  which  must  be  allocated  to  that 
part.  For  a  no-substitution  policy,  the  total  allowed  stockout  consists  of 
the  summed  stockouts  over  all  parts  treated.  For  each  day,  the  cumulative 
net  demand  for  Part  3  acts  as  a  "lock"  or  "claimant"  on  the  same  number  of 
stockouts  in  the  original  allowable  stockout.  Requirements  for  Part  4  can 
only  be  based  on  the  unallocated  allowable  stockout,  tabulated  in  Table 
2-10,  which  is  the  original  allowed  stockout  minus  all  "claimant"  stockouts 
(net  demands)  from  parts  already  processed  (from  Part  3  in  this  example). 
Since  the  Part  4  requirement  is  not  yet  "purchased"  (it  is  being  computed), 
the  cumulative  net  demand  entries  for  Part  4  in  Table  2-10  are  computed  in 
the  same  manner  as  in  Tables  2-7  and  2-8,  using  the  initial  stock  distri¬ 
bution  of  Table  2-3.  The  day  requirement  in  Table  2-10  is  calculated  as 
the  cumulative  net  demand  for  Part  4  minus  the  unallocated  allowable 
stockout. 
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As  before,  the  overall  requirement  (circled)  is  the  largest  of  the  day 
requirements.  The  Part  4  requirement  would  be  assumed  purchased,  and  the  - 

process  would  be  continued  with  less  expensive  no-sub  parts  (if  any).  Each  • 

successive  calculation  would  use  an  unallocated  allowable  stockout  equal  to 
the  original  allowable  stockout  reduced  by  the  sum  total  of  allocated  stock¬ 
outs  reflected  in  purchases  of  parts  already  processed. 


Table  2-9.  Unconstrained  Cost  Residual  Requirement 
with  No  Substitution  (Part  3) 


Cum 

Cum 

Cum 

Cum 

return 

init 

net 

Allowed 

Day 

Day 

failures 

repairs 

stock 

demand 

stockout 

rqmt 

1 

30 

0 

220 

0 

100 

0 

—  n 

2 

90 

0 

230 

0 

100 

0 

• 

3 

150 

0 

240 

0 

100 

0 

4 

240 

0 

250 

0 

50 

0 

5 

330 

30 

260 

40 

50 

CD 

Table  2-10.  Unconstrained  Cost  Residual  Requirement  with 

No  Substitution  (Part  4) 

Day 

Part  3  (new 
cum  net 
demand) 

Cumulative  net 
demand 
(Part  4) 

Unallocated 

allowable 

stockouts 

Day  • 

rqmt 

1 

0 

0 

100-0  =  100 

0 

2 

0 

0 

100-0  =  100 

0  • 

3 

0 

10 

100-0  =  100 

0 

4 

0 

20 

50-0  =  50 

0  : 

5 

40-0  =  40 

30 

50-40  =  10 

30-10  =CID  • 
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(3)  After  the  above  solutions  are  computed,  they  become  the  basis  for 
the  partial-substitution  algorithm  calculations  for  Day  5  shown  in  Table 
2-11.  The  following  comments  apply: 

(a)  To  simplify  computations,  the  only  combinations  (AF,  AN)  shown 
are  multiples  of  10.  Since,  from  Table  2-6,  total  allowed  NMCS  aircraft  on 
Day  5  from  all  parts  must  equal  50,  the  sum  of  AF  and  AN  in  Table  2-11  must 
be  50. 

(b)  For  AF  =  0  on  Day  5,  the  solution  for  the  full-sub  part  set  is 
70  for  Part  1  and  70  for  Part  2  (Tables  2-7  and  2-8,  respectively).  These 
are  also  the  requirements  for  these  parts  under  an  "NMCS  =  0"  policy  in 
basic  PARCOM. 

(c)  For  values  of  AF  greater  than  0,  solutions  for  the  full -sub 
parts  set  are  obtained  by  subtracting  AF  x  QPA  (=  AF  since  QPA  =  1  in  this 
example)  units  from  each  part  requirement  in  the  "AF  =  0"  solution  (since 
each  reduction  of  parts  stock  by  its  QPA  units  creates  QPA  backorders  which, 
in  turn,  correspond  to  one  NMCS  aircraft). 

(d)  The  no-sub  solution  for  AN  (allowed  NMCS  aircraft  for  the  no¬ 
sub  set)  =  50  on  Day  5  is  computed  in  Tables  2-9  and  2-10.  For  AN  less 
than  50,  a  no-sub  solution  is  obtained,  as  seen  in  Table  2-11,  by  adding 
(50  -AN)  units  to  the  computed  stock  requirement  for  the  cheapest  item(s) 
in  the  "AN  =  50"  solution  in  the  following  manner.  Units  are  added  first 
to  the  computed  requirement  for  the  cheapest  part,  up  to  the  level  of  cumu¬ 
lative  net  demand  for  that  part,  after  which  further  units  are  added  to  the 
computed  requirement  for  the  next  cheapest  part,  in  the  same  manner.  Using 
this  technique,  each  increase  of  one  unit  eliminates  a  backorder  and  cor¬ 
responds  to  one  less  NMCS  aircraft. 

(e)  The  minimum  combined  (total)  solution  cost  ($6,300)  is  marked 
in  Table  2-11.  The  combined  parts  requirement  for  the  associated  (AF,  AN) 
combination  is  the  day  requirement  for  Day  5.  If  (as  assumed  in  this 
example)  Day  5  has  the  largest  day  requirement,  then  that  day  requirement 
is  also  the  overall  minimum  cost  solution  for  our  partial-substitution 
example. 
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Table  2-11.  Unconstrained  Cost  Residual  Requirement 
Calculations  for  Day  5 


Combined 

solution 

AF 

Full-sub 
solution 
pt  1/pt  2 
$40/$50 

Cost 

(S) 

AN 

No-sub 
solution 
pt  3/pt  4 
S400/$30 

Cost 

(J) 

Combined 

solution 

cost 

(S) 

1 

0 

70/70 

6,300 

50 

0/20 

600 

6,900 

2 

10 

60/60 

5,400 

40 

0/30 

900 

dTso^ 

3 

20 

50/50 

4,500 

40 

10/30 

4,900 

9,400 

4 

30 

40/40 

3,600 

20 

20/30 

8,900 

12,500 

5 

40 

30/30 

2,700 

10 

30/30 

12,900 

15,600 

6 

50 

20/20 

1,800 

0 

40/30 

16,900 

13,700 

Minimum  cost  solution  =  Pt 

,  1  Pt  2  Pt  3  Pt  4 

60  60 

0 

30 

(assuming  Day  5  has  max  day  requirement) 

• 

f.  Capability  Assessment  of  the  Unconstrained  Cost  Solution.  Tables 
2-12a  and  b  shows  the  Extended  PARCOM  capability  assessment  calculation  of 
the  effects  of  stocking  the  requirements  computed  in  Table  2-11.  Each 
day's  calculations  entail  a  full-sub  assessment  phase  and  a  no-sub 
assessment  phase,  operating  on  the  full-sub  part  set  (Parts  1  and  2)  and 
the  no-sub  part  set  (Parts  3  and  4),  respectively.  During  the  full-sub 
phase,  NMCS  aircraft  from  failed  full-sub  parts  is  determined  as  the  larger 
of  the  (cumulative  net  demand/QPA)  entries  over  Parts  1  and  2,  where 
cumulative  net  demand  is  based  on  initial  inventory  as  augmented  by  the 
computed  requirement  from  Table  2-11.  Therefore,  the  entries  for  Parts  1 
and  2  consist  of  the  cumulative  net  demand  entries  from  Tables  2-7  and  2-3 
reduced  by  the  value  of  the  computed  requirements.  During  the  no-sub 
phase,  NMCS  aircraft  from  failed  no-sub  parts  are  determined  as  the  sum  of 
the  cumulative  net  demand  entries  for  Parts  3  and  4,  where  cumulative  net 
demand  is  based  on  initial  inventory  as  augmented  by  the  computed 
requirements.  Under  the  assumed  definition  of  partial  substitution,  each 
NMCS  aircraft  is  "down"  due  to  either  at  least  one  needed  full-sub  part  or 
a  single  needed  no-sub  part,  but  not  to  a  needed  combination  of  the  two 
types.  Therefore,  the  order  of  performing  the  phases  is  irrelevant.  On 
each  day,  after  the  two  NMCS  aircraft  calculation  phases  are  completed,  the 
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sum  of  the  two  results  yields  the  total  NMCS  aircraft  for  the  day  (Table  2- 
12b).  This  value  divided  by  surviving  aircraft  on  that  day  determines  the 
fraction  NMCS.  Subtracting  this  fraction  NMCS  from  1.00  yields  aircraft 
availability  for  the  day.  Flying  hours  per  (available)  aircraft  per  day 
are  calculated  by  dividing  the  program  flying  hours  for  each  day  (see  Table 
2-5)  by  the  number  of  available  aircraft  on  that  day.  Average  availability 
is  constructed  by  weighting  daily  availabilities  by  the  daily  surviving 
aircraft.  Average  flying  hours  per  (available)  aircraft  per  day  are 
weighted  by  the  available  aircraft  on  each  day. 


Table  2-12a.  Capability  Assessment  for  Unconstrained 
Cost  Residual  Requirement^ 


Day 

Phase** 

Cum  net 
demand/QPA 
Part  1 

Cum  net 
demand/QPA 
Part  2 

Cum  net 
demand 
Part  3 

Cum  net 
demand 
Part  4 

NMCS 

aircraft 

1 

FS 

0 

0 

0 

NS 

— 

— 

0 

0 

0 

2 

FS 

0 

0 

.•  •• 

^  * 

0 

NS 

— 

— 

0 

0 

0 

3 

FS 

0 

0 

0 

NS 

— 

— 

0 

0 

0 

4 

FS 

70-60=10 

61-60=1 

■>  w 

10 

NS 

— 

— 

0 

0 

0 

5 

FS 

70-60=10 

0 

10 

NS 

— 

— 

40 

0 

40 

^Residual  requirement  (60,60,0,30)  is  added  to  initial  war  reserve 
stock. 

^FS  =  Full-sub  phase  (processes  full-sub  part  set) 

NS  =  No-sub  phase  (processes  no-sub  part  set) 
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Table  2-12b.  Capability  Assessment  for  Unconstrained 
Cost  Residual  Requirement 


Day 

Total 

NMCS 

aircraft 

Surviving 

aircraft 

Aircraft 

availability 

Program 

flying 

hours/acft/day 

1 

0 

150 

1.00 

3.3 

2 

0 

200 

1.00 

5.0 

3 

0 

200 

1.00 

5.0 

4 

10+0=10 

200 

190/200=. 95 

7.9 

5 

10+40=50 

200 

.75 

10.0 

Average  availability  =  .94 

Average  flying  hours/aircraft/day  =  6.2 


g.  Capability  Assessment  of  Current  Inventory/Constrained  Cost  Case. 

Since  the  same  algorithm  applies  to  capability  assessment  of  current 
inventory  and  of  a  constrained  cost  solution,  only  assessment  of  current 
inventory  will  be  detailed  here.  Tables  2-13a,  b,  and  c  show  the  calcu¬ 
lations  for  this  case.  As  before,  calculation  of  daily  NMCS  aircraft 
is  done  in  two  phases.  Now,  however,  each  phase  of  each  day  employs  a 
series  of  iterative  calculations,  as  explained  in  paragraph  2-8,  beginning 
with  an  "estimated  flying  hours  flown"  and,  based  on  that  estimate,  calcu¬ 
lating  an  "achieved  flying  hours"  value.  Iterations  continue  until  esti¬ 
mated  and  achieved  flying  hours  are  close  together  or  until  a  specified 
number  of  iterations  have  been  performed.  Some  essential  explanatory 
comments  follow  the  tables. 


2-26 


CAA-0-85-3 


Table  2-13a.  Capability  Assessment  of  Current  Inventory 


Day 

Iteration 

Phase 

Est  fly 
hrs 

Cum  net 
dmd/QPA 
Part  1 

Cum  net 
dmd/QPA 
Part  2 

Cum  net 
demand 
Part  3 

Cum  net 
demand 
Part  4 

NMCS 

acft 

1 

1 

FS 

500 

0 

4 

4 

1 

NS 

500 

— 

-- 

0 

0 

0 

2 

1 

FS 

1,000 

0 

23 

... 

23 

1 

NS 

1,000 

0 

— 

0 

0 

0 

3 

1 

FS 

1,000 

0 

42 

42 

1 

NS 

1,000 

— 

— 

0 

10 

10 

4 

1 

FS 

1,500 

70 

61 

70 

1 

NS 

1,500 

— 

-- 

0 

20 

20 

2 

FS 

1,300 

54 

57 

— 

— 

57 

2 

NS 

1,300 

— 

-- 

0 

16 

16 

5 

1 

FS 

1,270 

36 

61 

•  • 

61 

1 

NS 

1,270 

14 

21 

35 

2 

FS 

1,165 

27 

59 

— 

-- 

59 

2 

NS 

1,165 

•• 

•• 

8 

19 

27 

Table  2-13b.  Capability  Assessment  of  Current  Inventory 


Day 

Itera¬ 

tion 

Total 

NMCS 

aircraft 

Avai  1 
aircraft 

Achieved 
flying  hrs 

(EFH-AFH)/ 
(average  day  FHP)^ 

1 

1 

4 

146 

500 

0 

2 

1 

23 

177 

1,000 

0 

3 

1 

52 

148 

1,000 

0 

4 

1 

90 

110 

1,100 

.36 

2 

73 

127 

1,270 

.03 

5 

1 

96 

104 

1,040 

.21 

2 

86 

114 

1,140 

.02 

^Average  flying  hour  program  (FHP)  =  1,100  flying  hrs/day. 
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Table  2-13c.  Capability  Assessment  of  Current  Inventory 


Day 

Surviving* 

aircraft 

Aircraft 

avail 

Fraction 
flying  program 
achieved 

Program 

flying 

hrs/acft/day 

1 

150 

.97 

1.00 

3.4 

2 

200 

.88 

1.00 

5.6 

3 

200 

.74 

1.00 

6.8 

4 

200 

.63 

.85 

10.0 

5 

200 

.57 

.76 

10.0 

^From  the  scenario  data  (Table  2-5). 


(1)  Estimated  flying  hours  on  the  first  iteration  of  each  day  are 
equal  to  the  daily  program  hours  (Table  2-5)  or  the  flying  hour  potential 
of  surviving  non-NMCS  aircraft,  whichever  is  smaller.  Surviving  non-NMCS 
aircraft  are  the  difference  between  cumulative  aircraft  surviving  (Table 
2-5)  and  the  total  NMCS  aircraft  computed  on  the  last  iteration  of  the  pre¬ 
ceding  page.  The  associated  flying  hour  potential  is  the  product  of  this 
difference  and  the  maximum  flying  hours/aircraft/day  from  Table  2-5. 

(2)  The  cumulative  net  demand  entries  in  Table  2-13a  are  calculated 
based  on  the  estimated  flying  hours  of  each  day  and  iteration.  Thus,  as 
long  as  estimated  flying  hours  equal  the  flying  program  these  values  are 
identical  to  the  cumulative  net  demand  entries  of  Tables  2-7  through  2-10 
(which  are  based  on  the  program  hours).  This  applies  through  Day  3  in  the 
example.  Entries  for  subsequent  days  can  be  determined  by  subtracting 
(failure  rate  x  cumulative  flying  hour  deficit)  from  the  appropriate  entry 
in  Tables  2-7  through  2-10.  For  example,  on  iteration  2  of  Day  4,  the 
estimate  is  1,300  program  hours,  representing  a  deficit  of  200  hours  from 
the  daily  program.  Thus,  the  associated  cumulative  net  demand  entry  for 
Part  1  is  200  x  .08  =  16  less  than  the  cumulative  demand  entry  (70)  of 
Table  2-7.  Similarly,  the  Part  2  entry  is  200  x  .02  =  4  less  than  the  Day 
4  net  demand  entry  (61)  of  Table  2-8.  On  Day  5,  iteration  2,  the  cumula¬ 
tive  flying  hour  deficit  is  the  sum  of  the  deficits  from  the  last  itera¬ 
tions  for  Days  4  and  5,  viz  (1,500  -  1,300)  +  (1,500  -  1,165)  =  535  hours. 
The  above  adjustment  technique  is  a  short-cut  which  yields  the  same  answer 
as  direct  calculation. 
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(3)  The  "NMCS  aircraft"  column  of  Table  2-13a  is  just  the  larger  of 
the  "cum  net  demand/QPA"  values  for  the  full-sub  set  and  phase,  and  is  the 
sum  of  the  "cum  net  demand"  entries  for  the  no-sub  set  and  phase. 

(4)  "Total  NMCS  aircraft"  in  Table  2-13b  is  just  the  sum  of  the  NMCS 
aircraft  from  each  phase. 

(5)  Available  aircraft  are  computed  as  (surviving  aircraft  -  total 
NMCS  aircraft),  where  surviving  aircraft  is  from  the  scenario  data  (Table 
2-5). 

(6)  Achieved  daily  flying  hours  is  just  the  smaller  of  (avail  acft  x 
10)  and  the  daily  flying  program.  Recall  that  maximum  flying  hours/acft/ 
day  *  10. 

(7)  Program  flying  hours/acft/day  is,  from  Table  2-13c,  the  quotient 
of  the  achieved  flying  hours  and  the  available  aircraft. 

(8)  The  (EFH-AFH)/(avg  daily  FHP)  column  of  Table  2-13b  is  a 
"closeness  measure."  EFH  denotes  estimated  flying  hours  while  AFH  denotes 
achieved  flying  hours.  Their  difference  is  divided  by  the  average  program 
flying  hours  per  day  for  the  scenario.  If  this  is  small  enough,  iterations 
terminate.  Since  Table  2-5  specified  "desired  convergence  =  0,"  estimated 
flying  hours  must  equal  achieved  flying  hours  in  order  for  iterations  to 
terminate  due  to  closeness.  When  EFH  does  not  equal  AFH,  daily  interations 
continue  up  to  the  maximum  iteration  limit  (2)  specified  in  Table  2-5.  If 
iterations  continue,  the  average  of  estimated  and  achieved  flying  hours  for 
this  iteration  becomes  the  estimated  flying  hours  for  the  next  iteration. 
Thus,  (1,500  +  l,100)/2  =  1,300  hours  is  the  estimated  flying  hours  for 
iteration  2  of  Day  4. 

.  Daily  aircraft  availability  in  Table  2-13c  is  calculated  as  the 
ratio  of  computed  available  aircraft  (from  the  last  daily  iteration  of  the 
previous  section  of  the  table  (2-13b)  and  surviving  aircraft.  Daily 
fraction  flying  program  achieved  is  the  achieved  daily  flying  hours  (from 
the  last  iteration)  divided  by  the  program  hours. 

h.  Constrained  Cost  Residual  Requirement  Solution.  Two  algorithms  are 
applied,  and  the  better  solution  (in  terms  of  flying  hour  productivity)  is 
chosen.  The  starting  base  for  each  algorithm  is  the  unconstrained  cost 
solution  (Table  2-11).  From  Table  2-5,  the  residual  cost  limit  is  $2,300. 
The  complete  calculations  for  the  example  case  are  too  complex  to  represent 
here;  however,  the  following  steps  illustrate  algorithm  application: 

(1)  Algorithm  1  (para  2-6a)  first  applies  the  constrained  cost  al¬ 
gorithm  of  basic  PARCOM  (para  2-5)  to  the  no-sub  parts  in  the  unconstrained 
cost  solution  using  the  input  cost  limit  ($2,300).  Any  money  "left  over" 
is  applied  to  buy  a  cost-effective  slice  of  the  full-sub  parts  in  the  un¬ 
constrained  cost  solution.  Since  the  cost  limit  exceeds  the  price  of  the 
no-sub  part  set  in  the  example  unconstrained  cost  solution  ($900  =  0  x  400 
+  30  X  30),  the  basic  PARCOM  no-sub  solution  is  the  entire  no-sub  solution 
set,  and  $1,400  is  left  over  to  buy  full-sub  parts.  To  obtain  a  cost- 
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effective  slice  from  this.  Table  2-14  is  used.  The  "full-sub  parts"  column 
shows,  for  each  day,  the  cost  of  the  full-sub  parts  in  the  total  uncon¬ 
strained  cost  requirements  solution  for  the  scenario  truncated  at  that  day. 
Extended  PARCOM  internally  operates  with  this  table.  Such  a  "dollar  vs 
day"  table  shows  the  full-sub  portion  of  total  requirements  cost  through 
each  day.  From  the  table,  the  day  with  associated  full-sub  parts  cost 
closest  to  (but  no  more  than)  the  money  left  over  ($1,400)  is  Day  4,  with  a 
full-sub  cost  of  $1,350.  Extended  PARCOM  then  generates  a  standard  uncon¬ 
strained  cost  solution  (as  in  Table  2-11)  for  the  example  with  a  4-day 
scenario.  The  full-sub  parts  in  that  solution  are  extracted  and  merged 
with  the  no-sub  parts  found  earlier.  The  resulting  merged  solution  is 
shown  in  Table  2-15.  Extended  PARCOM  then  applies  the  capability  assess¬ 
ment  algorithm  for  current  inventory/constrained  cost  to  generate  the  fleet 
capability  assessment  resulting  from  adding  the  algorithm  1  solution  to 
current  inventory.  The  resulting  average  fraction  flying  program  achieved 
(.947)  is  noted  for  later  use. 

(2)  Algorithm  2  (Figure  2-7)  is  similar  to  the  second  phase  of 
algorithm  1  except  that  it  operates  on  all  parts.  Table  2-14  shows  the 
residual  requirement  costs  (all  parts)  through  each  day.  Day  4  is  the  day 
for  which  the  associated  cost  ($1,950)  is  closest  to  (but  does  not  exceed) 
the  input  cost  limit  ($2,300).  Extended  PARCOM  then  generates  a  standard 
unconstrained  cost  solution  for  the  example  with  a  4-day  scenario.  That 
solution  (shown  in  Table  2-16)  is  the  algorithm  2  solution.  A  capability 
assessment  is  again  done,  but  with  the  algorithm  2  requirement  added  to 
current  inventory.  The  resulting  average  fraction  flying  program  achieved 
is  .946  of  the  required  program. 


Table  2-14.  Residual  Requirement  Costs  Through  Given  Day 


Day 

Full -substitution 
parts  ($) 

No-substitution 
parts  ($) 

All  parts 
($) 

1 

0 

0 

0 

2 

0 

0 

0 

3 

0 

0 

0 

4 

1,350 

600 

1,950 

5 

5,400 

900 

6,300 

!-30 


Table  2-15.  Algorithm  1  Constrained  Cost  Solution 


Full 

substitution 

No  substitution 

Part 

Requirement 

Part 

Requirement 

1 

20 

3 

0 

2 

11 

4 

30 

Table  2-16.  Algorithm  2  Constrained  Cost  Solution 


No  substitution 


Part 


Requirement 


Full  substitution 


Part 


Requirement 


1 

2 


20  3  0 

11  4  20 


(3)  The  solution  yielding  the  higher  average  fraction  flying  program 
achieved  is  then  selected  as  the  overall  solution.  For  the  example,  the 
algorithm  1  solution  is  chosen  as  the  final  solution.  The  already-computed 
algorithm  1  capability  assessment  then  applies. 

(4)  Note  that  the  solutions  generally  only  approximate  the  input  cost 
limit.  The  approximation  is  necessary  because  the  full-sub  part  require¬ 
ments  are  determined  by  incrementing  over  whole  (i.e.,  nonfractional )  days 
of  flying  program  sustainability.  For  very  small  problems,  such  as  in  the 
example,  the  approximation  may  be  poor  in  dollar  terms.  However,  the  solu¬ 
tion  cost  is  usually  closer  to  the  cost  limit  in  large  problems.  In  all 
cases,  the  difference  between  the  solution  cost  and  the  cost  limit  must  be 
less  than  a  single  extra  day  of  flying  program  sustainability. 
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OPERATIONAL  CONSIDERATIONS  AND  CAVEATS 


3-1.  CASE  OBJECTIVES.  The  user  can  specify  a  flying  hour  objective  in 
conjunction  with  an  aircraft  availability  objective.  For  each  of  these, 
one  of  two  subobjectives  is  selected.  The  associated  case  types  are  noted 
below. 


a.  Maximizing  Cumulative  Flying  Hours  Achieved.  This  flying  hour  ob¬ 
jective  is  always  operating  when  running  a  constrained  cost  case.  It 
entails  the  direct  determination  of  the  parts  mix  which  will  yield  the 
greatest  number  of  achieved  flying  hours  for  a  specified  cost  limit.  The 
flying  hours  achieved  will  be  less  than  the  desired  flying  hour  program  if 
the  cost  limit  is  less  than  the  cost  of  the  unconstrained  cost  solution 
mix. 


b.  Maximizing  Consecutive  Daily  Program  Flying  Hours  Achieved.  This 
flying  hour  objective  is  relevant  only  to  constrained  cost  cases  since,  for 
unconstrained  cost  cases,  achieved  flying  hours  =  program  flying  hours. 
Obtaining  a  solution  with  this  objective  is  a  two-stage  process.  First, 
the  user  runs  Extended  PARCOM  in  an  unconstrained  cost  mode  for  the  full 
wartime  period.  The  output  list  from  that  run  shows,  for  each  day,  the 
cumulative  cost  of  the  add-on  parts  that  would  have  been  required  if  the 
war  had  been  truncated  at  that  day.  D,  the  last  day  on  that  list  for  which 
the  associated  cost  is  less  than  or  equal  to  the  cost  limit  of  the  con¬ 
strained  cost  case,  is  then  the  maximum  number  of  consecutive  days  of  100 
percent  flying  program  sustainability  with  "cost  limit"  spares  dollars. 
Next,  to  get  the  solution  mix  associated  with  0,  Extended  PARCOM  is  rerun, 
in  the  unconstrained  cost  mode,  with  a  truncated  war  of  0  days  length. 

c.  Minimum  Specified  Daily  Aircraft  Availability.  This  objective  is  in 
addition  to  any  flying  hour  objective  and  is  operative  in  all  cases.  The 
availability  objective  may  increase  the  demand  for  available  aircraft  be¬ 
yond  those  required  to  achieve  the  flying  program.  The  input  availability 
constraints  are,  as  described  previously,  used  to  calculate  daily  allowed 
NMCS  aircraft,  which,  in  turn,  are  used  in  all  case  calculations. 

d.  No  Specified  Aircraft  Availability.  Extended  PARCOM  must  always 
read  in  values  for  minimum  daily  aircraft  availability  objectives.  How¬ 
ever,  entering  blank  or  zero  equates  to  not  specifying  an  availability 
objective. 
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3-2.  CAPABILITY  ASSESSMENT.  Normally,  Extended  PARCOM  capability  assess¬ 
ments  are  performed  after  add-on  requirements  are  determined  for  both  un¬ 
constrained  and  constrained  cost  cases.  In  the  unconstrained  cost  cases, 
flying  hour  and  availability  goals  are  fully  met,  so  the  assessed  achieve¬ 
ments  are  simply  the  same  as  the  goals.  However,  average  availability  over 
the  course  of  the  war,  which  cannot  be  input  as  a  goal,  is  also  determined. 
For  constrained  cost  cases,  days  of  sustainability,  fraction  of  daily  and 
total  flying  hour  program  achieved,  and  daily  and  average  aircraft  avail¬ 
abilities  are  determined.  At  times,  however,  it  is  also  desirable  to  be 
able  to  assess  the  degree  to  which  an  aircraft  fleet,  with  its  current  or 
some  other  starting  inventory  (and  no  add-ons),  can  meet  specified  flying 
or  availability  goals.  This  can  be  done  in  Extended  PARCOM  for  a  variety 
of  user-specified  partial-substitution  replacement  policies.  An  assessment 
under  the  policy  specified  for  requirements  cases  is  always  generated. 
However,  the  user  may  define  a  number  of  other  partial-substitution  poli¬ 
cies  for  which  individual  current  inventory  capability  assessments  are 
desired  from  a  single  model  "run."  The  partial-substitution  policies  are 
specified  in  terms  of  the  partition  of  the  parts  data  base  into  full-sub 
and  no-sub  part  sets. 

3-3.  WACT  OF  PARTS  DISTRIBUTION  OVER  TIME.  The  distribution  of  parts 
over  time,  as  opposed  to  front  loading  of  stocks,  has  no  effect  on  Extended 
PARCOM  results  if  all  initial  assets  reach  retail  before  they  are  required 
(as  replacements).  An  ideally  efficient  stockage  and  transportation  system 
will  achieve  this.  Parts  distribution  over  time  may  effect  an  increase  in 
requirements,  relative  to  front  loading,  if  initial  assets  are  sufficiently 
delayed  so  that  they  do  not  arrive  in  retail  before  all  retail  stocks  are 
drawn  down.  In  effect,  such  delayed  assets  may  have  their  usefulness 
negated  because  they  are  in  the  wrong  place  at  the  wrong  time.  Similarly, 
the  effect  of  such  delays  on  capability  assessment  of  current  inventory  may 
be  a  decrease  in  the  period  over  which  the  flying  program  can  be  contin¬ 
uously  sustained. 

3-4.  CAVEATS  AND  LIMITATIONS.  The  principal  caveats  and  limitations  on 
use  of  the  Extended  PARCOM  Model,  as  applied  in  the  study,  are  discussed 
below.  Program  modification  and/or  restructuring  is  required  to  extend 
model  capabilities  beyond  the  cited  limits. 

a.  Number  of  Part  Types  Processed.  The  Extended  PARCOM  Model  version 
demonstrated  at  the  US  Army  Concepts  Analysis  Agency  (CAA)  can  process  at 
most  300  different  part  types.  Simple  (but  memory  consuming)  modifications 
to  the  structure  of  the  program  can  significantly  increase  this  capacity. 

b.  Restrictive  Partial-Substitution  Policy  Definition.  Extended  PARCOM 
only  treats  one  concept  of  partial  substitution.  Other  concepts  may  not  be 
adaptable  to  the  model  methodology.  The  deterministic  (as  opposed  to 
stochastic)  nature  of  the  model  limits  the  range  of  processes  which  can  be 
"added  on." 


i 

3-2 


c.  Only  Two  Centralized  Supply  Levels.  Extended  PARCOM  shares  the 
Overview  Model  "world  view"  of  a  retail  level  and  a  wholesale  level.  With 
full  substitution,  each  level  has  full  cross-leveling  (lateral  transfer- 
ability)  of  parts. 

d.  No  Indenture  Levels.  Part  types  in  the  Extended  PARCOM  (and 
Overview)  data  base  are  nonoverlapping  modular  units,  i.e.,  no  part  is  a 
subcomponent  of  another  listed  part  type.  Use  of  indentured  data  is  not 
processable  in  Extended  PARCOM. 

e.  No  Direct  Maintenance  Modeling.  As  with  Overview,  Extended  PARCOM 
treats  maintenance  only  indirectly,  by  incorporation  into  the  repair  time 
or  by  using  an  aircraft  deployment/ attrition  data  base,  which  is  adjusted 
for  aircraft  down  ("lost")  due  to  maintenance  constraints.  Such  adjust¬ 
ments  could  be  based  on  results  of  a  separate  high-resolution  simulation 
model  which  previously  processed  a  "slice"  of  the  scenario. 

f.  No  Stochastic  Results.  All  Extended  PARCOM  results  are  "expected 
value."  Neither  input  nor  results  have  variable  probabilistic  aspects 
(e.g.,  confidence  levels).  Safety  levels  would  have  to  be  treated  sep¬ 
arately  as  an  add-on  to  Extended  PARCOM  quantities.  However,  use  of 
expected  values  is  meaningful  for  comparisons  and  parametric  evaluations. 
Methodology  for  incorporating  stochastic  considerations  into  Extended 
PARCOM  would  be  complex.  Conversion  of  the  model  into  a  stochastic 
simulation  could  entail  high  risk  for  an  uncertain  payoff. 
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CHAPTER  4 

POTENTIAL  PROGRAM  MODIFICATION 


4-1.  MODULE  FUNCTIONS.  Figure  4-1  shows  the  main  and  subprogram  modules 
of  Extended  PARCOM.  The  subprograms  consist  of  seven  subroutines  and  one 
function.  A  summary  of  operational  purpose  is  given  below  for  each  module 
Details  of  module  operations  can  be  read  in  the  commented  FORTRAN  code  for 
Extended  PARCOM  presented  in  Appendix  A. 


Subroutine  DIST 


Figure  4-1.  Extended  PARCOM  Subprogram  Modules 
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a.  Main  Program.  The  Extended  PARCOM  main  program: 

(1)  Reads  in  all  part  and  scenario  data. 

(2)  Prints  summaries  of  the  part  and  scenario  data  input. 

(3)  Calls  subroutine  MAXC  to  order  the  part  data  base  by  part  unit 

cost. 

(4)  Calls  subroutine  DIST  to  distribute  initial  stock  over  time. 

(5)  Calls  subroutine  UCRQPS  to  compute  requirements  and  costs  for  the 
unconstrained  cost  case. 

(6)  Calls  subroutine  UCCAP  to  compute  capability  assessment  of  the 
unconstrained  cost  solution  mix. 

(7)  Computes  requirements  and  costs  for  the  constrained  cost  case. 

(8)  Calls  subroutine  CCLIST  to  print  the  constrained  cost  solution. 

(9)  Calls  subroutine  CCCAP  to  compute  capability  assessment  for  the 
constrained  cost  solution. 

(10).  Calls  subroutine  CCCAP  to  compute  capability  assessment  of 
current  inventory  with  various  user-specified  partial-substitution 
pol icies. 

b.  Subroutine  UCRQPS.  Subroutine  UCRQPS  is  called  only  by  the  main 
program.  It  computes  and  prints  the  least-cost  requirements  mix  of  spare 
parts  needed  to  achieve  the  case  objective,  given  unconstrained  funds.  In 
addition  to  computing  the  unconstrained  cost  requirement,  the  subroutine 
operation  is  a  part  of  the  constrained  cost  requirements  algorithm  in  the 
main  program.  Subroutine  UCRQPS  calls: 

(1)  Subroutine  NCRNC  which  computes  unconstrained  cost  no-sub 
requirements  solutions  over  only  the  no-sub  part  set.  These  solutions  are 
used  by  the  partial-substitution  requirements  algorithm. 

(2)  Function  SR  which  is  used  to  compute  cumulative  net  demand  for 
each  part. 

(3)  Subroutine  MAXC  which  is  used  to  order  computed  requirements 
either  in  order  of  part  unit  cost  or  in  order  of  amount  of  requirement. 

c.  Subroutine  UCCAP.  Subroutine  UCCAP  is  called  by  the  main  program 
and  calls  function  SR.  It  computes  fleet  capability  (average  availability, 
average  program  flying  hours/aircraf t/day)  based  on  the  unconstrained  cost 
solution  being  stocked  in  the  war  reserve. 
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d.  Subroutine  CCCAP.  Subroutine  CCCAP  is  called  by  the  main  program 
and  calls  function  SR.  It  computes  fleet  capability  assessment  based  on 
the  constrained  cost  solution  being  stocked  in  the  war  reserve.  It  is  also 
called  by  the  main  program  to  compute  capability  assessments  of  current 
inventory  for  a  series  of  user-specified  partial-substitution  policies. 

e.  Subroutine  CCLIST.  Subroutine  CCLIST  is  called  by  the  main  program 
to  print  the  constrained  cost  requirements  solution.  It  calls  subroutine 
MAXC  for  use  in  ordering  the  requirements  list. 

f.  Subroutine  DIST.  Subroutine  DIST  is  called  by  the  main  program  and 
calls  no  external  routines.  It  distributes  the  initial  spares  stock  of  a 
part  type  over  a  user-specified  series  of  5-day  intervals. 

g.  Subroutine  MAXC.  Subroutine  MAXC  is  called  by  the  main  program,  by 
subroutine  UCRQPS,  and  by  subroutine  CCLIST.  It  calls  no  external  routines. 
This  subroutine  finds  the  largest  member  of  a  subscripted  array.  It  is 
useful  in  rank-ordering  a  list  according  to  the  numeric  value  of  a  list 
attribute. 

h.  Subroutine  NCRNC.  Subroutine  NCRNC  is  called  by  subroutine  UCRQPS 
and  calls  function  SR.  It  calculates  a  basic  PARCOM  unconstrained  cost 
requirements  solution  for  a  no-substitution  replacement  policy.  Its  opera¬ 
tion  is  an  element  of  the  Extended  PARCOM  partial-substitution  requirements 
algorithm. 

i.  Function  SR.  Function  SR  is  called  by  subroutine  UCRQPS,  by  sub¬ 
routine  NCRNC,  by  subroutine  UCCAP,  and  by  subroutine  CCCAP.  No  external 
routines  are  called.  This  function  calculates  the  cumulative  net  demand 
through  a  specified  day  for  a  specified  part  based  on  a  specified  flying 
program.  A  zero  initial  inventory  is  assumed  in  this  calculation. 

4-2.  ARRAY  STORAGE.  Definitions  and  sizes  of  Extended  PARCOM  array 
variables  are  given  in  the  comments  of  the  program  code  displayed  in 
Appendix  A.  The  types  of  arrays  are  local,  as  defined  by  DIMENSION 
statements,  common,  as  defined  by  unlabeled  COMMON,  and  character,  as 
defined  by  CHARACTER  declarations.  Character  variables  occupy  four  words 
per  entry  in  Extended  PARCOM  while  other  arrays  require  only  one  word  per 
entry.  During  execution  on  the  Sperry  1100/82  computer.  Extended  PARCOM 
occupies  47,000  words  of  memory. 

4-3.  EXTENSION  OF  DAY  LIMIT.  In  the  Extended  PARCOM  version  delivered  by 
CAA,  17  single-subscript  arrays  and  2  double-subscript  arrays  are  defined 
in  terms  of  the  maximum  number  of  days  in  the  scenario.  The  current  limit 
is  120  days.  Those  arrays  of  size  120  may  be  increased  in  size  (through 
user  reprograming)  to  the  scenario  length  desired  insofar  as  computer 
memory  permits.  The  arrays  associated  with  the  day  limit,  their  dimen¬ 
sions,  and  the  routines  defining  them  are  listed  in  Table  4-1. 
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Table  4-1.  Extended  PARCOM  Arrays  with  a  Day  Limit  Dimension 


Array 

Routine 

Array 

Routine 

Array 

Routine 

1 

AC(120) 

COMMON 

DCOST1(120) 

COMMON 

FHR(120) 

COMMON 

ALL0W1(120) 

COMMON 

DC0STF(12O) 

COMMON 

IFHC(120) 

COMMON 

•‘J 

i 

ALL0WB(120) 

COMMON 

FHA(120) 

COMMON 

RNC(120) 

COMMON 

ALR(120) 

Main 

FHNC(120) 

CCCAP 

SM(120,100) 

COMMON 

' 

ASURV(120) 

COMMON 

FHNZ(120) 

CCCAP 

SUMB(120) 

COMMON 

- 

» 

m 

AVM(120) 

COMMON 

FHPAPD(3,120) 

COMMON 

SUMBZ{120) 

NCRNC 

W  .  4 

1 

r 

SUMP (120) 

NCRNC 

4 

4-4.  EXTENSION  OF  TOTAL  PARTS  LIMIT.  In  the  Extended  PARCOM  version 
delivered  by  CAA,  37  single-subscript  arrays  and  1  double-subscript  array 
are  defined  in  terms  of  the  maximum  number  of  parts  to  be  processed.  The 
current  limit  is  300  parts.  Those  arrays  of  size  300  may  be  increased  in 
size  (through  user  reprograming)  to  any  limit  permitted  by  computer  memory. 
The  arrays  associated  with  the  parts  limit  and  the  routines  defining  them 
are  shown  in  Table  4-2. 

4-5.  CAVEATS.  If  the  day  and/or  parts  limits  are  increased,  the  process¬ 
ing  time  required  for  Extended  PARCOM  requirements  run  execution  increases 
by  at  least  the  product  of  the  two  limit  multipliers,  i.e.,  doubling  the 
day  limit  and  the  part  limit  will  at  least  quadruple  processing  time.  The 
reader  should  note  that  capability  assessments  without  requirements  calcu¬ 
lations  (a  user  option)  are  much  faster  than  executions  with  requirements 
calculations. 
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Table  4-2.  Extended  PARCOM  Arrays  with  a  Parts  Limit  Dimension 


Array  | 

Routine 

1  Array 

Routine 

1  Array  | 

Routine 

ADESC(300) 

COMMON 

DCY(300) 

COMMON 

PTDEP(300,24) 

COMMON 

AMSN(300) 

COMMON 

DP  (300) 

COMMON 

QPA(300) 

COMMON 

BC{300) 

Main 

0M0(300) 

COMMON 

RNCS(300) 

COMMON 

BCY(300) 

COMMON 

DMDT(300) 

CCCAP 

SRMAX1(300) 

COMMON 

BF{300) 

COMMON 

000(300) 

COMMON 

STK(300) 

COMMON 

CDM0A(300) 

COMMON 

0SER(300) 

Main 

TRNCS(300) 

COMMON 

CF(300) 

COMMON 

0UNSER(300) 

Main 

TSTK(300) 

COMMON 

CLASS (300) 

Main 

FR(300) 

Main 

RMIN(300) 

UCRQPS 

CNCS(300) 

COMMON 

IFS(300) 

COMMON 

WRES(300) 

Main 

COST (300) 

COMMON 

INS(300) 

COMMON 

WRESU(300) 

Main 

CRNCS(300) 

COMMON 

IRC(300) 

COMMON 

XRNCS(300) 

Main 

DAY1D(300) 

Main 

IR0(300) 

COMMON 

ZNRT(300) 

Main 

DC (300) 

Main 

0ST(300) 

Main 
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APPENDIX  A 

EXTENDED  PARCOM  PROGRAM  SOURCE  CODE 


MAIN  PROGRAM 

pages  A-3  thru  A-20 

SUBROUTINE  CCCAP 

pages  A-21  thru  A-25 

SUBROUTINE  CCLIST 

pages  A-27  thru  A-29 

SUBROUTINE  DIST 

pages  A-31  and  A-32 

SUBROUTINE  MAXC 

page  A-33 

SUBROUTINE  NCRNCT 

pages  A-35  thru  A-37 

SUBROUTINE  UCCAP 

pages  A-39  thru  A-42 

SUBROUTINE  UCRQPS 

pages  A-43  thru  A-48 

FUNaiON  SR 

pages  A-49  and  A-50 

A-1 
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MAIN  PROGRAM 


NkHC:  PARCOn>X  TYPE:  MAIM  PItOSRAM 

ARITTEN  BY:  HALTER  BAUM AN/AUTOVON  -?95-1662 

AT:  US  ARMY  CAA/BI20  WOOOHOMT  AYE ,BETHE SOA.MO  2081A 


PURPOSES  THE  PARCOM-*  IPARTS  REOUIREMENTS  ANO.COST  MO0EJ.-C; TENOEO »  IS  USED 
TO  GENERATE  COST  EFFECTIVE  MIXES  OF  SPARE  PARTS  REOUIftEO  TO  XCMiEWE  A 
FLYING  PROGRAH/AVAILABILITY  OBJECTIVE  UNDER  A  USER-SPECIFIED 

-PART  REPLACEMENT  POLICY  (EITHER  FULLtPARTIAL  OR  NO  SUBSTITUTION! 
-(PURCHASE!  COST  constraint 

IN  ADOITION.THE  PROGRAM  ALLOWS  THE  CAPABILITY  ASSESSMENT  OF  AN  AIRCRAFT 
FLEET  BASED  ON  A  USER-SPECIFIED  SPARES  INVENTORY  APPLIED  UNDER  A 
VARIETY  OF  USER -SPECIF I ED  PARTS  REPLACEMENT  POLICIES 

ARGUMENTS:  NOT  APPLICABLE 

CALLED  BY:  NOT  APPLICABLE 

^^'■‘■-SUBHOUTINE  MA«C:  SELECTS  LARGEST  SUBSCRIPT,OF  AN  ARRAY,  USED, TO 

ORDER  PART  TYPES  IN  DECREASING  ORDER  OF  UNIT  COST. 
-SUBROUTINE  CCCAPt  PERFORMS  A  FLEET  CAPABILITY  ASSESSMENT  BASED  ON 

A  SPARES  ST3CM  EQUAL  TO  THE  CONSTRAINED  COST  SOLUTION 
AND/OR  CURRENT  INVENTORY 

:l8!88S!i!!f  iill  8:jW’?SSt.j.Ls 

-SUBROUTINE  UCCAPt  COMPUTES  FLEET  CAPABILITY  ASSESSMENT  BASED 

ON  THE  UNCONSTRAINED  COST  SOLUTION  BEING  STOCKED 

files  used  :  INPUT  -  UNIT  10  (PARTS  DATA! 

-  UNIT  It  (SCENARIO  DATA! 

OUTPUT  -  UNIT  G  (PRINT! 

LOCAL  ARRAYS 


NAME 

DIMENSION 

TYPE 

ALRd! 

120 

real 

AN(  I! 

61 

real 

ANSN( J! 

300 

CHAR 

BC(  J! 

300 

real 

CLASS! J! 

300 

real 

OATIDIJ! 

300 

real 

0C(  J! 

300 

REAL 

DSCR(J! 

300 

REAL 

DUNSER! J! 

300 

real 

FR(  J! 

300 

real 

IDAYdl 

61 

FIXED 

NACIll 

61 

FIXED 

NFHd! 

61 

FIXED 

DESCRIPTION 

NR  ACFT  LOSTIATTRITION!  ON  DAT  1 
AC  AVAILABILITY  CONSTRAINT  FOR  I-TH 

IDENTIFICATION  NR(NSN!  OF  SPARE  PART  J 

BASE(RETAIL!  CONDEMNATION  RATE  OF  PART  J 
CFRACTION  FAILURES  ’JUNKED*  AT  RETAIL  LEVEL! 

IDENTIFYING  LABEL  FOR  PART  SET  WHICH  PART  J 
BELONGS  TO  , (EITHER  FULL-SUB  OR  NO-SUB! 

AMOUNT  OF  ASL/PLL  STOCK  FOR  PART  J  WHICH 
IS  IN-PLACE  ON  DAY  I 

DEPOT  CONDEMNATION  RATE  OF  PART  J 
(FRAC  FAILURES  ’JUNKED*  AT  DEPOT  LEVEL! 

AMOUNT  OF  SERVICEABLE  INITIAL  DEPOT  STOCK 
FOR  PART  J 

AMOUNT  OF  UNSERVICEABLE  INITIAL  DEPOT  STOCK 
FOR  PART  J 

failure(REplaccnenT!  rate  for  part  j 

EXPRESSED  AS  EXPECTED  NR  OF  FAILURES 

PER  flying  hour  Flown, 

ARRAY  which  TEMPORARILY  STORES  INPUT  DATA  ON 
DAYS  BEGINNING  ’DAY  INTERVALS’  (IOAY(I!  TO 
lOAYd’l!!  IN  WHICH  VARIOUS  INPUT  DATA 
TAKE  EFFECT 

NR  OF  AC  DEPLOYED  AT  START. OF  I-TH  TIME 
INTERVAL  (IDAvdl  TO  iDAVd*!!! 

FLYING  HR  REOHT  DURING  I-lH  TIME 
interval  (IDAYdl  TO  IPAYd*!!! 
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S! 

§  OSKJI 

300 

real 

8« 

SI 

1 

C  PT(K) 

29 

REAL 

87 

88 

89 

C 

c 

C  VRES(JI 

300 

real 

90 

91 

92 

c 

c 

C  URESUIJI 

300 

REAL 

93 

99 

9S 

C 

C 

C  XRNCSIJI 

300 

REAL 

96 

97 

9S 

99 

1 

c 

C  ZLOSSdl 

61 

REAL 

100 

101 

102 

103 

C 

C 

c 

C  2NRT(JI 

300 

REAL 

109 

igl 

107 

108 

109 

C 

c 

c 

c 

c 

C  COMMON  BLOCK  (UNLABELEO) 

no 

111 

112 

c 

c 

C  NAME 

DIMENSION 

TYPE 

113 

119 

115 

C 

C 

C  ACdl 

120 

RE  AL 

116 

117 

c 

c  ACL 

1 

real 

118 

119 

120 

121 

122 

123 

129 

C 

C 

C 

C 

c 

c 

C  AOESClJt 

300 

CHAR 

ill 

§  ALLOMKI) 

120 

real 

127 

128 

129 

130 

131 

132 

C 

C 

C 

c 

c 

C  ALLOMBd) 

120 

real 

133 

139 

135 

136 

137 

138 

C 

c 

c 

C  ANSN(JI 

Q 

300 

CHAR 

C  ASURV(I) 

120 

real 

139 

190 

C 

C  AVAVGIR) 

6 

real 

ill 

193 

199 

195 

196 

197 

198 

199 

150 

151 

152 

153 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C  AVN(I) 

120 

REAL 

159 

155 

156 

c 

c 

C  BCY(J) 

300 

REAL 

157 

158 

c 

C  3F(J) 

300 

REAL 

159 

160 

161 

162 

163 

C 

C 

c 

c 

C  CASE 

CHAR 

OROER/SHIP  TINE  lOAYSt  FOR  P«RT  J 
(=IhPUT>SPECTFIED  OST  »  AOOOSTI 

AMOUNT  OF  PART  J  OEPLOVEO  AFTER  OA r  1  AND 
BETMEEN  DAT  S*K-4  AND  OAT  5«K 

AMOUNT  OF  SERVICEABLE  INITIAL  WAR  RESERVE  FOR 
PART  J 

amount  of  unserviceable  INITIAL  MAR  RESERVE  FOR 
PART  J 

ARRAY  FOR  TEMPORARILY  ST0RIN6  THE  CONSTRAINED 
COST  SOLUTION  REONT  COMPUTED  BY  THE  CONSTR 
COST  ALfiORITHM  1  FOR  PART  J. 

NUMBER  OF  DAILY  AC  LOSSES  BY  ATTRITION 
DURING  1-TH  TIME  INTERVAL  IIDAVIII  TO 
IDAVII*1II 

NRTS  (NOT  REPAIRABLE  THIS  STATIONI  FRACTION 
FOR  PART  J  .  THIS  IS  THE  FRACTION  OF  FAILURES 
UHICH  ARC  SENT  TO  DEPOT  FOR  REPAIR. 


DESCRIPTION 


NR  ACFT  DEPLOYED  ON  DAY  I 

TNC  AMOUNTItl  OF  SUSTAINABILITY  DOLLARS, 

BASED  ON  THE  'CUM  REQMT  COST  THRU  DAT  N* 
TABLCStUHICH  IS  THE  CLOSEST  APPROXIMATION 

TO. The  input  cost  limit  for  the  constrained 

COST  case 

10  CHAR  DESCRIPTION  OF  SPARE  PART  J 

THE  *ALL0HABLC  NMCS  ACFT*  FOR  THE  NO-SUB 
SET  ON  DAY  I. COMPUTED  AFTER  DAT  I  IS  PROCESSED. 
AFTER  IT  IS  CALCULATED  FOR  DAT  I,  IT  IS  FIXED 
DURING  ITERATIVE  CALCULATIONS  (INVOLVING  DATIl 
FOR  NO-SUB  REQMTS  ON  LATER  DATS. 


LATER  DATS. 


MAXIMUM  ALLOUABLE  NMCS  AC  ON  OAT  I  UHICH 
MILL  STILL  ALLOM  ACHIEVNENT  OF  CASE  OBJECTIVE 
(FLYING  HOUR  AND  AVAILABILITTI  ON  DAT  I 

IDENTIFICATION  NR(NSN>  OF  SPARE  PART  J 

NR  AC  SURVIVING  (NOT  ATTRITTEDION  OAT  I 

AVAV6(1)=AVG  ACFT  AVAIL  .FROM  CAPABILITY 
ASSESSMENT .BASED  ON  STOCKAGE  OF  EITHER 
CURR  INV  OR  (  CURR  INV  *  COMPUTED  ADD-ON 
REQMTS  SOLUTIONI 

avav6(Zi:avg  min  acft  req’O  to  achieve 

THE  FLYING  HR/ AV AILABIL ITV  OBJECTIVE. 

AVAVG(3>=AVG  FLY  HR/AVAIL  ACFT  /  DAY 
•FROM  CAPABILITY  ASSESSMENT.  BASED  ON 
EITHER  CURR  INV  OR  (CURR  INV  •  THE  SOLUTION 
REONT)  BEING  STOCKED. 

AC  AVAILABILITY  CONSTRAINT  (MIN  REQUIRED 
NON-NNCS  ACFT I  FOR  DAY  I. 

BASE(RCTAIL)  REPAIR  TIME  FOR  PART  J  (INPUT) 

A  COEFFICIENT  USED  IN  THE  CALCULATION  OF 
NET  DEMAND  ISRII,J...I)  FOR  PART  J.  IT  EQUALS 
(I-BC( J) IP(1-ZNRT( Jl IPCFI  J) . 


CASE  ID 


300  REAL 


ARRAY  USED  TO  STORE  THE  CUNULATIVE  NET  OEHANO 
IBASED  ON  INITIAL  STH=0I  FOR  PART  J  ON  THE 
SCENARIO  DAT  BEING  PROCESSED 


IbS 

166 

167 

168 

169 

170 

171 

172 
175 

175 

176 

177 

178 

179 

180 
181 
182 
183 
189 

185 

186 

187 

188 

189 

190 

191 

192 

193 
199 

195 

196 

197 

198 

199 

200 
201 
202 
203 

m 

206 

207 

208 

209 

210 

212 

213 

219 

215 

216 

217 

218 

219 

220 
221 
222 

225 

226 

227 

228 

229 

230 

231 

232 

233 

239 

235 

236 

237 

290 
29  1 

i:! 

299 

295 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CONOAIJ) 


CFt  Jl 

300 

REAL 

A  COEFFICIENT  USED  IN  CALCULATION  OF  NET 
OENANaS«SRiI,J,..t >  FOR  PART  J.  IT= 

FRIJI90PAIJI 

CL 

1 

REAL 

THE  COST  LINIT  IAS  SPECIFIED  BY  INPUT  1  USED 

IN  THE  constrained  COST  REOMTS  CASE. 

CNINT 

1 

real 

TOTAL  COST  OF  THE  REOHT  FOR  THE  UNCONSTRAINED 
COST  CASE 

cncsiji 

300 

REAL 

TOTAL  COST  OF  REOHT  FOR  PART  J  USING 

THE  SPECIFIED  PART  REPLACEHENT  POLICY. 

COSTIJI 

300 

REAL 

COST  OF  A  single  ITEH  OF  PART  J  .  THIS  IS 

ALSO  DENOTED  AS  'PART  UNIT  COST*. 

CRNCSIJI 

300 

real 

THE  unconstrained  cost  SOLUTION  REOHT  FOR 

PART  J  AT  ANT  STAGE  OF  THE  PARTIAL  SUB 
REQUIRENENT  CALCULATION  ALGORITHH. 

OCOSTKII 

120 

REAL 

THE  TOTAL  CUHULATIVE  REOHTS  COST  THRU  DAY  I 

FOR  THE  FULL  SUB  PARTS  ONLY.  I .E .  THIS  IS 

THE  PORTION  OF  THE  *CUH  REOHTS  COST  THRU  DAY  N* 
ENTRY  WHICH  IS  ASSOCIATED  WITH  THE  FULL  SUB 

PART  SET. 

OCOSTFIII 

120 

REAL 

CUNULATIVE  COST  OF  THE  FULL  REOUIREHENT 
lALL  PARTSI  THRU  DAY  I  USING  THE  SPECIFIED 

PART  REPLACEHENT  POLICY  WITH  UNCONSTRAINED 

COST. 

OCYtJI 

300 

REAL 

DEPOT  RECYCLE  TIHE  FOR  PART  TYPE  J.  THIS  IS 

TINE  BETHEEN  RENOVAL  AND  RETURN  FROH  DEPOT 
REPAIR.  THIS  =  DEPOT  REPAIR  TIHE  *  290RDER 

SHIP  TIHE, 

DF<JI 

300 

REAL 

A  COEFFICIENT  USED  IN  FALCULATION  OF  NET 
DENANDSISRII.J,..)  1  FOR  PART  J.  IT  = 

(1-OCI JII*ZNRTtJ>*CPIJI 

OnOIJ) 

300 

real 

WORKING  VARIABLE  USED  IN  CALCULATION  OF 

NET  DEHANOISRII.J,..l)  FOR  PART  J  ON  DAY  I 
DURING  capability  ASSESSHENT. 

WHEN  ICUNINET  dhd  Thru  day  i  is  being 
CALCULATEO.DHDIJl  IS  tCUH)  NET  OHO  THRU  THE 
PREVIOUS  DAY. 

OOOtJI 

300 

2EAL 

array  storing  the  ATTRIBUTE  TO  BE  SORTED  ON 

IN  SUBROUTINE  HAXC .  IN  NAIN  PGN.THIS  HAS  PART 
UNIT  COST  FOR  PART  J.  IN  SUBROUTINES  CCLIST  C 
UCRQPS.THIS  HAS  THE  AHOUNT  OF  THE  SOLUTION 

REQNT  FOR  PART  J. 

FHAfll 

120 

REAL 

DURING  UNCONSTR  COST  REOHT  CALCULATIONSIROUTINE 
UCRQPSI  and  DURING  UNCONSTR  COST  CAPABILITY 
ASSESSHENTSIROUTINR  UCCAPI  THIS  IS  THE  FLEET 
FLYING  PROGRAH  FLYING  HOURS  REQUIRED  ON  DAY  I. 
DURING  THE  CONSTR  COST  CAPABILITY  ASSESSHENT 
ISUBROUTTNE  CCAPS)  THIS  IS  THE  INITIAL  ESTIHATE 
FOR  FLYING  HRS  ACHIEVED  ON  DAY  I  MHEN 
either  CURR  INV  or  ICURR  INV  *  CONFUTED 
CONSTRAINED  COST  ADD-ON  REOHTI  IS  STOCKED. 
DURING  CAPABILITTASSESSHENT  THIS  IS  RECURSIVELY 
COHPUT CD 

FHH 

REAL 

HAXIHUH  FLYING  HRS  PER  ACFT  PER  DAYIINPUTI 

FHPAPOIK.II 

3,120 

REAL 

FHPAPDtl.I>=FLYING  HRS  PER  AVAILABLE  ACFT  PER 
.  FOR  DAY  I  UNDER  THE  SPECIFIED  REPLACEHENT 

POLICY  BASED  ON  STOCKING  ICURRCNT  INV  « 

THE  UNCONSTRAINED  COST  SOLUTIONI 

FHPAPO  13.1 l  =  FLYIN6  HRS  PER  AVAILABLE  ACFT  PER 
FOR  OAT  I  UNDER  THE  SPECIFIED  REPLACEHENT 
POLICY  STOCKING  EITHER  CURRENT  INVENTORT  OR 


or*nooo.  ^oonoonor>nr»onnoni 'oo*‘*>nononoonr>nr>r»rjr»nr>onon  oooooonrinoonnonnonnnnn  oooononooooonr' 
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fcuae  i\v  *  th"  co^straiv-:''  cost  sfLuTiowi 


F  H 1  I  ) 

12" 

9t»L 

DUPING  the  CONSTP  COST  CAPSdILlTX  siStSSSNFST 

this  is  Fleet  progran  flying  hours  reSuireO 

CM  UFY  IIACCORDING  TO  THE  INPUT  FLYING  HO  OGP) 

f  t  J) 

3"'; 

REIL 

paIlORE IPEPLFCEHENYJ  S*!'  fQP  PiRT  j 

EXPSESGEC  »S  EXPECTED  NR  OF  FAILURES 

PER  flying  hour  pLOUN. 

I'^OST 

I 

FIXED 

IMEIPATOP  WHICH  TELLS  SUBROUTINE  UC«QPS  WHETHtP 
YO  PRINT  THE  PARTS  REOMTS  LIST  ("  =  0J  i:OON*H. 
PECHTS  LIST  IS  NOT  PRINTED  DURING  CONSTSAINE" 
COST  SrOHT  CALCULATIONS. 

fixed 

STORES  ,FOR  EITHER  TOTALIINOxll  OR  RESIDUAL 
(INC=2|.  the  latest  day  FRCH  the  •  CUH  COST 
PEOHT  THRU  day  N*  table  (FRQH  THE  UNCONSTR 

COST  CASFI  FOR  WHICH  ASSOCIATED  CuH  COST 

IS  LESS  THAN  OR  =  THE  INPUT-SPEClF lEO  COST 
limit  used  in  THE  C0MSTHAINE.3  COST  EaSE. 

IFHCin 

123 

FIXED 

Indicator  telling  which  constraint. fly  hr  pg** 

«IFMCI1»=JI  OR  ACFT  ayaILAPILITYCIFHCI t):i) , 
OETERHINFS  REQUIRED  DAILY  FLEET  AVAILABILITY 

PQR  PAY  X 

IFS«J) 

3CC 

FIXED 

ARRAY  STORING  THE  PaRCOH  PART  NURBERS  OF  THE 
PARTS  IN  THE  FULL-EUe  PART  SET. 

I"*  jEL 

FIX'-O 

NUHBER  OF  P»RT  TYPES  FOR  WHICH  I  NO  TV  ITEN 
•CUHULATlVF  tUNCONSTR  COST)  SOLUTION  RPJPTS 

THRU  day  h*  are  desired.  ISEE  SNII.J)  t 

:PT«j»  BELOW) 

IMIJJ 

’-c 

FIXED 

ARRAY  STORING  THr  PaPcOH  PART  nUhBERS  OF  THE 
PARTS  IN  THE  NO-Sue  PART  SET. 

INT 

1  FIXED 

the  interval  at  which  the  partial  sub 
rOHPOTAITON  algorithm  IROUTIME  UCROPS) 
INCREMENTS  values  FOR  aALLOWABLE  NMCS  ICFT* 

AT  each  stage  of  CALCUtATIOH  OF  SEOARATE  REC“T 
SOLUTIONS  for  The  FUil-SUB  set  and  the  no-su« 
SET.  ALWAYS  SETri  FOR  RELIABLE  RESULTS.  ITS 
VALUE  IS  SET  :1  IN  THE  PR06RASM  CODE. 

IPHJ) 

5 

FIXED 

ARRAY  STORING  INTERNAL  PART  MRS  (SUBSCRIPTS) 

FOP  PARIS  FOR  WHICH  A  CUMULATIVE  DAY  BY  DAY 
RECUTREMFNT  HISTORY  IS  To  BE  PRINTED 

locf JJ 

3-d 

FIXED 

ARRAY  CONTAINING  PART  NUMBERS  ORDEPfD  ACC  TO 
OECBEASING  PART  UNIT  COST  FOR  ASSOCIATED  P aR ^ 

3cn 

FIXED 

•RRAY  containing  PART  numbers  ordered  ACC  TO 
CECRFASING  solution  PECNT  amount  for  ASSOCIATrrj 
PART 

NP 

I 

FIXED 

HR  OF  PART  TYPES  PROCESSED  IN  RUN.  (THIS 
EXCLUDES  PART  TYPES  WITH  ESSENTIALITY  CODE 
•LF.  lESS  OR  WITH  A  EERO  FAILURE  RATE) 

NF : 

1 

FIXED 

total  number  of  'Part  numbers*  in  the  full -sub 

PART  SET 

\P2 

1 

FIXED 

total  number  of  'PART  NUMBERS’  IN  the  NO-SUB 
PART  SET 

\w 

1 

FIXED 

LEN6TMI0ATS)  OF  SCENARIO 

ptcepij.k  > 

^0  J  t  c  4 

9E*L 

TOTAL  AMOUNT  OF  INITIAL  STOCK  FOR  PART  J 
RECEIVED  AT  THEATERCEXCLUOING  IN-PLACE  STOCK) 
FETween  fay  s*k-«  anc  Pay  E»k 

tpilJI 

3-C 

RE*l. 

the  ’QUANIITT  per  application’  for  part  j. 

T.E.  the  stanoakd  number  of  items  df  part  j 
installed  on  each  operational  *cft 

s  •  ■  1  I  I 

12: 

»E«L 

«C  AVAILXbILITY  IMPLIED  ?Y  STOCKA&E  OF 
fCRMPUTEO  PCMT  ♦  current  INVENTORY  I  OR  BY 
«TOCKAGE  OF  ONLY  THE  CUnRENT  INVENTORY 

■:  M  c  s  (J ) 

3  C 

PEJL 

CURING  RECMT  CIL-ULaTIONS  IN  MAIN  PROGRAM  t 
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328 

C 

329 

C 

330 

C 

331 

C 

332 

C 

333 

c 

33A 

C  SNd.JI 

120.100 

real 

335 

c 

336 

c 

337 

C  SRMAXKJ) 

300 

REAL 

33S 

C 

339 

C 

3A0 

c 

3N1 

c 

3N2 

c 

3A3 

c  STK(J) 

300 

REAL 

3«A 

c 

3A5 

c 

^  SUNBII) 

120 

REAL 

3N8 

C 

3A9 

C 

35  0 

c 

351 

C  TRNCSIJI 

300 

REAL 

352 

C 

353 

c 

ISA 

c 

355 

c 

356 

C  TSTKIJI 

300 

REAL 

357 

c 

358 

c 

359 

C  TSUMB 

1 

REAL 

360 

C 

36  1 

C 

362 

c 

36  3 

c 

36A 

c 

365 

366 

367 

c  NOTEWORTHY 

/A 

SINGLE -SUBSCRlt 

8 

36B 

c  NAME 

TYPE 

369 

C 

370 

c 

371 

C  AOOOST 

REAL 

372 

c 

373 

C 

37  A 

c 

375 

c 

376 

c 

377 

c 

378 

C  AOSC 

REAL 

379 

C 

380 

C  AX 

RE  AL 

381 

C 

382 

C  BREPL 

REAL 

38  3 

C 

389 

c 

385 

c 

386 

c 

387 

c 

388 

C  BRR 

REAL 

389 

C 

390 

C  CL 

REAL 

391 

c 

392 

c 

393 

C  CLl 

real 

39A 

C 

395 

c 

396 

c 

397 

c 

398 

C  CL2 

REAL 

399 

c 

ADO 

c 

AOl 

c 

AQ2 

c 

A03 

C  CLNCR 

REAL 

ADA 

C 

AOS 

C 

A06 

C  CLNCT 

REAL 

A07 

C 

A08 

C 

A09 

C  CONVF 

REAL 

TN  SUBROUTIhES  NCRNC.UCROPS  AND  UCCAP. THIS  IS 
THE  RCOMT  FOR  PART  J  HITH  UNCONSTRAINED  COST. 
DURING  CONSTR  COST  CAPABiLlTr  ASSESSMENT 
tSUBROUTINE  CCCAP)  THIS  IS  THE  REQhT  FOR  PART  J 
«  ISSUED  INITIAL  STOCKtISNCJII 

the  CUMULATIVE  IUNCONSTR  COST)  SOLUTION  REQNT 
THRU  DAT  I  FOR  PART  IPTIJI 

A  UORRINB  VARIABLE  USED  IN  THE  CALCULATION  OF 

The  unconstr  cost  reont  for  a  part  j  in  the 

FULL-SUB  SET.  IT  IS  THE  RUNNING  MAXIMUM  lOVER 

tinei  of  The  net  demand  iincluoing  initial  stki 

FOR  PART  J  THRU  THE  DAT  BEING  PROCESSED 

INITIAL  SERVICEABLE  STOCK  OF  PART  J.  IT  IS  THE 
SERVICEABLE  VAR  RESERVE  *  IIN-PLACE  ASL/PLL 
ON  DAT  II 

TOTAL  STOCKOUTS  OVER  ALL  PARTS  IN  ThE  NO-SUB 
PART  SET. AS  CALCULATED  DAT  I  DURING 
CAPABILITT  ASSESSMENT 

ARRAY  USED  TO  STORE  THE  UNCONSTR  COST  SOLUTION 
REQNT  WHILE  THE  NO-SUB  CONSTR  COST  ALGORITHN 
IS  BEING  APPLIED  TO  THE  NO-SUB  PART  SET  DURING 
PROCESSING  FOR  THE  CONSTR  COST  ALGORITHN 

THE  CUMULATIVE  STOCK  OEPLOTED  FOR  PART  J  ON 
THE  OAT  BEING  PROCESSED 

THE  TOTAL  NET  STOCKOUT  FROM  ALL  NO-SUB  PARTS 
PROCESSED  AT  ANY  STAGE  OF  THE  NO-SUB  REONTS 
CALCULATION  PORTION  OF  THE  PARTIAL  SUB  REONT 
ALGORITHN 


DESCRIPTION 


CONSTANT  ADDED  TO  INPUT  VALUE  OF  OST 
lOROER/SHlP  TINE  AS  READ  FROM  OVERVIEW  INPUTI 
TO  YIELD  THE  OST  USED  IN  PARCON.  THE  OST 
IS  THE  SANE  FOR  ALL  PART  TYPES.  IN  PARCON 
THE  OST  :  ONE-WAY  TRAVEL  TIME  BETWEEN 
AND  DEPOT. 

16  CHARACTER  DESCRIPTION  OF  PART  J 

AVERAGE  DAILY  HININUN  REQUIRED  ACFT  AVAIL 

PARTIAL  SUB  POLICY  SCREENING  LIMIT  (INPUT). 

IF  THE  8ASEIRETAIL)  REPAIR  TINE  IBCYIJM 
FOR  PART  J  EXCEEDS  BREPL.  THEN  PART  J  IS  PUT 
IN  THE  FULL-SUB  PART  SET.  IF  NOT.IT'S  IN  THE 
NO-SUB  PART  SET. 

NR  OF  returning  REPAIRS  ARRIVING  FROM  RETAIL 
REPAIR  ON  A  SPECIFIED  DAY 

THE  COST  LIMIT  USED  IN  THE  CONSTRAINED  COST 
CASES 

THE  AMOUNT  («>  OF  THE  UNCONSTR  COST  REGNTS 
FROM  THE  NO-SUB  PART  SET  WHICH  ARE  'BOUGHT* 

IN  THE  TRIAL  SOLUTION  FRON  CONSTR  COST 
ALGORITHN  1 

THE  AMOUNT  (SI  OF  ThE  UNCONSTR  COST  REOMTS 
FRON  THE  FULL-SUB  PART  SET  WHICH  ARE  'BOUGHT* 
IN  THE  TRIAL  SOLUTION  FROM  CONSTR  COST 
algorithm  2 

The  cost  limit  used  in  the  residual  unit 

STK=*CURRENT  INVENTORY*)  REQMTS  CASE 

the  cdst  limit  used  in  the  total  unit 

STK=0)  REQMTS  CASE 

THE  CONVERGENCE  THRESHOLD  (INPUT)  USED  IN  THE 
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C 

c 

NI2 

c 

013 

C  OANT 

REAL 

AIM 

c 

MIS 

c 

«16 

c 

AIT 

C  OOIS 

real 

A18 

c 

AI9 

c 

aIo 

c 

A2I 

c  OLA  6 

REAL 

A22 

C 

A23 

C 

A2A 

C 

A25 

C  FNC 

REAL 

A26 

C 

A27 

C 

A28 

C 

A29 

C  FRLIM 

real 

A3Q 

C 

A3I 

c 

A32 

c 

A33 

c 

A3A 

c 

A35 

C  IFDAY 

FIXED 

A3G 

C 

A37 

C 

A38 

C 

A39 

C  16 

FIXED 

AAO 

C 

AAl 

c 

AA2 

c 

AA3 

c 

AAA 

C  ILDAY 

FIXED 

AAS 

c 

AA6 

c 

AA7 

c 

AA8 

C  IND 

FIXED 

AA9 

C 

ASO 

C 

A5I 

C 

AS2 

C 

ASS 

C  lOPTl 

FIXED 

ASA 

C 

ASS 

C 

AS6 

C 

AST 

C 

AS8 

c 

AS9 

C  I0PT2 

FIXED 

AGO 

C 

A6I 

c 

A62 

c 

AGS 

c 

AGA 

C  I0PT3 

FIXED 

AGS 

c 

AGG 

c 

AG7 

c 

AG8 

c 

AG9 

C  lOPTA 

FIXED 

ATO 

c 

A7l 

c 

A72 

c 

ATS 

c 

A7A 

C  lOPTS 

FIXED 

ATS 

C 

A7G 

c 

ATT 

c 

ATS 

c 

A79 

C  lORD 

FIXED 

ABO 

c 

A61 

c 

Ae2 

c 

ASS 

c 

ASA 

c 

AB5 

C  IP 

FIXED 

A66 

c 

AST 

c 

ASe 

c 

A89 

c 

AAO 

C  IPRT 

FIXED 

AAl 

C 

CAPABILITV  ASSCSSHCNT  UITH 
WITH  *CUfffteNT  INVeNTORV* 


CONSTRATNCO  COST  OR 


the  amount  of  initial  stock  to  be  distributed 

IN  THEATER  OVER  A  SPECIFIED  (PARTS  DEPLOYMENT) 
TIME  PERIOD  (SEE  IFDAV  .ILOAV) 

LENGTH (DAYS!  OF  TIME  PERIOD  DURING  WHICH 
INITIAL  DEPOT  SERVICEABLES  ARE  RECEIVED 
AT  THEATER 

DELAVIOAYS  AFTER  DAY  1)  BEFORE 
INITIAL  DEPOT  SERVICEABLES  ARE  RECEIVED 
AT  THEATER 

FRACTION  OF  FLEET  FLYING  HR  PROGRAM  (FULL  WAR) 
WHICH  CAN  BE  ACHIEVED  UITH  THE  CONSTR  COST 
SOLUTION  inventory  OR  UITH  'CURRENT  INVENTORY* 

PARTIAL  SUB  POLICY  SCREENING  LIMIT  (INPUT). 

IF  THE  FAILURE  RATE  IFRIJ)  FOR  PART  J 
EXCEEDS  FRLIN,  THEN  PART  J  IS  PUT  IN  THE 
FULL -SUB  PART  SET.  IF  NOT, IT'S  IN  THE  NO-SUB 
PART  SET. 

FIRST  DAY  OF  RECEIFTIIN  THEATER)  OF  INITIAL 
STOCKS  DISTRIBUTED  lOEPLOYEOi  BY  SUBROUTINE 
OIST 

IDICATOR  TO  Subroutine  cclist  qf  uhethfr  constr 
COST  ALGORITHM  llIGri)  OR  CONSTR  COST  ALGORITHM 
?  UAS  USED  TO  OETERHINF  THE  FINAL  CONSTR  COST 
SOLUTION 

LAST  DAY  OF  RECEIPTIIN  THEATER)  OF  INITIAL 
STOCKS  Dlf'RIBUTED  IDEPLOTEDI  BY  SUBROUTINE 
DIST 

INDICATOR  OF  UHETHER  TOTALIINIT  STK=Q)  OR 
RESIOUALIINIT  STKxTcuRRENT  tNVENTORT*)  REOHTS 
ARE  BEING  PROCESSED  .INDxl  INDICATES  TOTAL 
REQMTS.  INO=2  INDICATES  RESIDUAL  REQMTS. 

RUN  OPTIONIINPUT) .  IF  lOPTI  .LE.  O.THEN  ONLY 
'CURRENT  INVENTORY*  CAPABILITY  ASSESSMENT  CASES 
WILL  3C  DONEd.E.  NO  REONTS  CALC).  IF  lOPTl 
IS  .GT.  O.BOTh  CURR  INV  CAP  ASSESS  AND  REONTS 
CASES  UILL  BE  DONE. 

RUN  OPTIONIINPUT).  IF  IOPT2  .LE.  O.THEN  THE 
FULL-  SUB*  PART  SET  USED  IN  THE 

'CURRENT  INVENTORY*  CAPABILITY  ASSESSMENT  CASES 
WILL  NOT  BE  PRINTED.  IF  I0PT2  .GT.O  THEY  WILL  . 

PUN  OPTIONIINPUT).  IF  IOPT3  .LE.  D.THEN  THE 
NO  -  SUB  PART  SET  USED  IN  THE  *CURR  iNV 
CAPABILITY  ASSESSMENT  CASES  WON'T  BE  PRINTED. 

IF  I0PT3  .GT.O  THEY  WILL  BE  PRINTED. 

RUN  OPTIONIINPUT).  IF  lOPTA  .LE.  0,THCN  THE 
UNCONSTR  COST  SOLUTION  REQMTS  LIST  WILL  NOT 
BE  PRINTED  (BUT  WILL  BE  COMPUTED  INTERNALLY). 

IF  lOPTN  .GT.O  THE  LIST  WILL  BE  PRINTED. 

RUN  OPTIONIINPUT).  IF  TOPIS  .LE.  O.THEN  THE 
'CUNUL ATIVEIUNCONSTR  COST)  REQMTS  COSTS  THRU 
DAY  N*  LIST  WILL  NOT  BE  PRINTED. IF  IOPT3  .GT.  0 
THE  LIST  WILL  BE  PRINTED. 

PUN  OPTIONIINPUT).  IF  lORD  .LE .  O.THEN  THE 
SOLUTION  REONTS  LISTS  WILL  BE  ORDERED  ACCORDING 
TO  DECREASING  UNIT  COST  OF  PART. IF  OPT3  .GT.  0 
The  REONTS  LISTS  ARE  OPOERED  BY  (DECREASING) 
AMOUNT  OF  SOLUTION  REQMT. 

INDICATOR  TELLING  THE  CONSTR  COST  CAPABILITY 
ASSESSMENT  ROUTINE  (CCCAP)  WHETHER  TO  PRINT  THE 
amount  of  SOLUTION  REQMT.  THIS  IS  SET  BY  THE 
MAIN  PROGRAM. 

RUN  OPTION(INPUT).  IF  TPRT  .LE .  C.THEN  THE 
SCENARIO  input  data  SUMMARY  WILL  NOT  BE  PRINTED 
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LIMIT 


MPTFS 


ZNRTL 


IF  IPRT  .GT.  0,IT  mill  9C  PRINTED 

FIXED  RUN  OPTIONIINPUTI .  IF  IPRTl  .LE.  O.THEN  THE 

FULL -SUB  C  NO-SUB  P/kRT  SETS  USED  IN  RQHTS  CASES 
UILL  not  be  PRINTED.  NOR  HILL  THE  PART  DATA 
LIST  SUMMARIES  AFTER  THE  FIRST  ONE.  OTHERUISE 

These  hill  be  printed. 

FIXED  RUN  OPTIONIINPUTI  TELLING  WHETHER  ONLV  TOTAL 
UNIT  STN=OI  REOMTS  I1SCL=0I.  ONLY  RESIDUAL 
UNIT  STN=CURR  INM I  REOMTS  IISEL=1I  .DR  BOTH 
TOTAL  AND  RESIDUAL  REOMTS  IISEL=2I  ARE  TO  BE 
PROCESSED  IN  THIS  RUN. 

FIXED  TEMPORARILY  STORES  NUITHE  NR  DAYS  IN  THE  UARI 
while  THE  CONSTRAINED  COST  ALGORITHMS  OPERATE. 

FIXED  the  partial-sub  POLICY  BEING  PROCESSED.  KNTC=1 
IS  THE  POLICY  USED  IN  REOMTS  CALCULATIONS  AND 
IN  THE  1ST  ‘CURRENT  INYENTORY*  CAPABILITY 
ASSESSMENT.  NNTC=2.3...  ARE  ADDITIONAL  POLICIES 
t INPUT  I  USED  ONLY  IN  CAPABILITY  ASSESSMENTS 
OF  CURRENT  INVENTORY 

FIXED  the  maximum  number  OF  ITERATIONS  IPER  DAYI 
WHICH  THE  CONSTRAINED  COST  CAPABILITY 
ASSESSMENT  ALGORITHM  ISUBROUTINE  CCCAPI 
UILL  PERFORM  BEFORE  IT  TERMINATES 

FIXED  an  input  INDICATOR  TELLING  HOW  THE  FULL-SUB 
SET  USED  IN  REOMTS  CALCULATIONS  IS  DEFINED. 

IF  NFS  .LT.  O.THE  FULL-SUB  SET  IS  DEFINED 
BY  FOUR  SCREENING  LIMITS  I BREPL . 7DCT .F RL IN  , 
7NRTLI  INPUT  ON  NEXT  CARD.  IF  NFS  .EO.  0. 

NO  PARTS  ARC  TO  BE  IN  THE  FULL -SUB  SET  II. E. 

THIS  IS  A  NO-SUB  CASE!.  IF  NFS  .6T.  O.THEN 
THE  NFSINUMBER  OF  I  PART  NUMBERS  DESIGNATED 
ON  THE  NEXT  CARDISI  ARE  IN  THE  FULL-SUB  SET. 

FIXED  lINPUTI  NUMBER  OF  FULL -SUB  PARTS  FOR  EACH 

PARTIAL-SUB  POLICY  USED  ONLY  FOR  CAPABILITY 
ASSESSMENT  OF  CURRENT  INVENTORY.  IF  INPUT 
VALUE  OF.NPTFS  .GT.  Q.THCN  NPTNS  ISEE  BELOWI 
IS  IGNORED. 

FIXED  lINPUri  number  of  no-sub  PARTS  FOR  EACH 

PARTTAL-SUB  POLICY  USED  ONLY  FOR  CAPABILITY 
ASSESSMENT  OF  CURRENT  INVENTORY.  NPTNS  IS 
USED  ONLY  IF  The  VALUE  OF  NPTFS  IS  0. 

REAL  TOTAL  FLYING  HOURS  IN  THE  FULL  SCENARIO 
FLYING  PROGRAM 

REAL  TOTAL  VALUE  OF  ’CURRENT  INVENTORY’ .BASED  ON 
PART  UNIT  COST 

REAL  PARTIAL  SUB  POLICY  SCREENING  LIMIT  liNPUTI. 

IF  THE  DEPOT  REPAIR  CYCLE  IDCYIJI 
FOR  PART  J  EXCEEDS  ZOCY,  THEM  PART  J  IS  PUT 
IN  THE  FULL-SUB  PART  SET.  IF  HOT, IT’S  IN  THE 
NO-SUB  PART  SET. 

REAL  PARTIAL  SUB  POLICY  SCREENING  LIMIT  liNPUTI. 

IF  THE  NRTS  IZNRTIJI  FOR  PART  J  EXCEEDS 
ZNRTL.  then  part  j  IS  POT  IN  THE  FULL-SUB 
PART  SET.  IF  NOT. IT’S  IN  THE  NO-SUB  PART  SET. 


DIMENSION 
«  ALRIIZDI, 

*  OCIIOOI. 

*  I0ATI61I, 

*  PTI2AI, 

«  2L0SSI61I, 

COMMON 

*  ACI120I, 

*  alloubiIzci. 

*  AVHI120I, 

«  C0MCAI300I, 

*  CNCSI500I, 

*  0C0STFI120I, 

’  OOOliODIf 


AH  1611  , 
OS£R  f  3C0  I  f 
NACI61 I, 

MR  CSC  3P0  I  f 
ZNRT  13001 

ACL, 

AHSN 1300  I, 
BCYI 3001 . 
CFI3C0I, 
COST  1300  I, 
OCYI 3001 , 
FHAi  i2ri; 


BCI300I. 
DUNSERliOOl , 
NFHI61). 
URESUI390I, 


AOESCI33CI, 
ASURV  11201, 
BFI300I, 

CL, 

CRNCS I3Q0I, 

DFI300I, 

FHM, 


DAYIDI 3001 , 
FRI 3001, 
OSTi 30DI , 
XRNCSI 3001 . 


ALL0U1I120I, 

AVAVGI6I, 

CASE, 

CHINT, 

DCOSTx  CSOOIf 
DMO I  3001 f 
FMPAPOfijlZOI, 
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4 

5 

576 

577 

578 

579 

580 

581 
58? 
583 
564 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 
60  3 

604 

605 

606 

607 

608 

609 

610 
611 
612 


HI 


61 

615 

618 

619 

620 
621 
622 
62  3 

624 

625 

626 
62  7 
628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 
64  1 
64  2 
64  3 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 


IPTilOOl, 


mi: 

.  _  r«ci3ooi, 

NP,  MPl, 

PT0EPI300,24I,  QPAUOOI. 

SHI  120,100lt  SRHAXmOOl* 


100 


200 


300 


*  TRNCSI300I, 
CHAR6CTCR416 

*  AOESC. 

*  CLASSIIOOI. 
ISH0RT=0 
IFCC:i 

00  100  I=lt2 
I0CCIII=0 
00  200  1=1.61 
IDAVI IlrO 
8VNI 1 1=0. 

NJtCI  11  =  0 
NFHf 11=0 
?L05SI1I=0 
AN(II=0. 

00  300  1=1.300 

rFsiii=o 

INS  II 1  =  0 

22  =  0. 

KNTC=1 


TSTK  13001. 


iNSl _ _ 

IR0f300l . 
NP2. 

RNCI120). 

STKf300>, 

TSUNS 


)F»CU20I. 

ISH3RT. 

N  y 

Rn(sI300I . 
SUHBI 1201 . 


AOSC  . 
21 


AHSN, 


CASE. 


REAO  OST  OFFSET, DESIRED  CON VER&ENCE  .H AX  ESSENTIALITY  PROCESSED. 
DEPOT  lag  tine, and  DEPOT  DISTRIBUTION  PERIOD 


READ  111,90001  AOOOST.CONVF.IESS.OLAG.OOIS 

NP:0 

NP1=0 


REAO  INOICATORINFSI  OF  HOU  PARTIAL-SUB  POLICY  IS  DEFINED 


READ  111.91001  NFS 


IF  NFS  .LT.e  REAO  PARTIAL  SUB  SCREENING  LINITS  ON  DFPOT  REPAIR  CYCLE, 
NRTS.BASEIRETAILt  REPAIR  CYCLE  ANO  FAILURE  RATE 


IF  INFS.LT.OI  READ  111,92001  20CV,2NRTL  .BREPL .FPLIH 

0.  READ  IN  THE  PART  NUNBERS  WHICH  DEFINE  THE  FULL-SUB 


IF  NFS  .GT. 
part  SET 


IF  (NFS.LE.OI  GO  TO  400 
READ  111,91001  IIFSIJI,J=1,NFS) 
400  READ  111,93001  CASE 
READ  110,94001 
1=0 


STNTS  500  TO  800  READ  ANO  PROCESS  THE  PART  DATA  8ASE  INPUT. EACH  PART 
HAS  12  RECORDS.  THE  REAO  ORDER  IS l  READ  PART  CHARACTERISTICS 


SKIP  A  RECORD  .  READ  INITIAL  DEPOT  STOCKSISERV  C  UNSER V > , I NI T I AL  WAR 
RESERVES  ISERV  C  UNSERVI  INO  IN-PLACE  ASL/PLL.  SKIP  A  RECORD. 

REAO  quantity  per  APPLICATION  .  READ  PART  DESCRIPTION.  REAO  ASL/PLL 


DEPLOYED  AFTER  DAY  I.  SKIP  3  RECORDS. 


500  REAO  I 10,9S00,END=1300I  21 , 22 .2 3,24 ,25 , 26 ,2 7,28 ,29 , IE S 
READ  I lP.9600,EN0  =  t 3001  OSR V.OJNS ,HRS  ,URU ,0  AY  1 
READ  I 1D,9700,EN0=1300I  lOPA 
REAO  I ir,9800,EN0=l 3001  APSC 
REAO  I 10,99aO,ENO  =  1300l  IPT  IK > , R= 1 ,24  I 
REAO  I 10,9400,CNO=1300> 


DO  NOT  PROCESS  PARTS  WITH  A  AN  ESSENTIALITY  .CT .  lESS 


IF  IIES.CT.IESSI  60  TO  700 
2T=7S»A000ST 
2X0=2. •7T*27 
22C=22/1C0. 

?4F=24/  lOOQOOO. 

2SN=25/ 100. 

2100=I0PA 

?8B=26/1C0. 

290=29/ 100. 

IF  IH00INP*I,50I.NE .01  60  TO  630 
WRITE  16,10000)  CASE 
WRITE  16,101001 
WRITE  16,102001 
WRITE  16,10300) 
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656 

657 

658 

659 

660 
661 
662 
663 
669 

665 

666 

667 

668 

669 

670 

671 

672 

673 
679 

675 

676 

677 

678 

679 

680 
661 
682 
683 
689 

685 

686 

687 

688 

689 

690 

691 

692 

693 
699 

695 

696 

697 

698 

699 

700 

701 

702 

703 
709 

705 

706 

707 
70S 

709 

710 

711 

712 

713 
719 

715 

716 

717 

718 

719 

720 

721 

722 
72  3 
729 

725 

726 

727 

728 

729 

730 

731 

732 

733 
739 

735 

736 

737 


QO  NOT  9R0CFSS  PARTS  WITH  A  FAILURE  RATE  =0. 

600  IF  129. 6E . .00000011  GO  TO  800 

700  write  16,109001  21,A0SC,22Ct23, 29F,Z5N,Z6,2X0,Z7,28B,290,Z10g,IES 
l:I*l 

GO  TO  sro 

800  NP:NP*1 

COMPUTE  INITIAL  STOCK  IN  THEATER  AS  SERVICEABLE  WAR  RESERVE  * 

IN-PLACE  ASL/PLL 

STKINPI=URS«0AV1 

BCY(NPI=Z6 

0CYINPI=0. 

IF  I2SN.6T.0.I  0CYINPI=ZX0 
ZNRTI NP l=ZSN 
CLASSINPI=*  NO  SUB* 

IF  NFS  .LT.  0, LABEL  THE  FULL-SUB  PARTS  ACCORDING  TO  THEIR  EXCEEDING 
AT  LEAST  ONE  OF  THE  SCREENING  LIMITS 

IF  INFS.GE.Ol  GO  TO  900 
CLASSINPI=*FULL  SUB* 

IF  tBCYINPI .LE .BREPL.AND.OCYINP  t .LE .ZDC Y . AND.Z9F .LE .FRL IM .AND .ZNRT 
«(NPI.LC.ZNRTLI  CLASSINPl:*  NO  SUB* 

GO  TO  1100 

900  IF  (NFS.EQ.OI  GO  TO  1100 
DO  1000  L=1.NFS 

IF  I IFSILI  .NE  .NPl  30  TO  1000 
CLASS(NPI=*FULL  SUB* 

GO  TO  1100 
1000  CONTINUE 

1100  WRITE  16,105001  NP, Z1 , AOSC, Z2C, 23 .ZRE ,Z5N,26,ZX0 ,Z7 , 28B ,Z90 ,Z 100, I 
*ES.CLASS(NPI,STK(NPI 
OSf (NPI=ZT 
AMSNINP)=Z1 
CaSTINPt=Z2C 
FR1NP15Z9F 
BCINPtSZSR 
0C(NPt:290 
QPAINPI=Z100 
AOESC(NPI=AOSC 
0SER(NPi:3SRV 
0UNSER(NPI:0UNS 
URESINPISHRS 
WRESUI NPirwRU 
DAY10(NPI=0AYt 
00  IZCO  L=l,29 
1200  PT0EP«NP,LI=PT»L1 

IF  INFS.GE.0.0R.CLASSINP1.EQ.*  NO  SUB*)  GO  TO  500 

IF  NFS  .LT.  0,  STORE  THE  PART  NUMBERS  OF  THE  FULL -SUB  PART  SET 
PREVIOUSLY  labeled 

NP1=NP1*1 
IFSINPl ):NP 
GO  TO  500 
1300  II=NP*I 

IF  (NFS.GE.OI  NPUNFS 
WRITE  16, 10600)  II, NP 

REAO  COST  LIMIKTOTAL  RONTSI.COST  LINITIAOO-ON  ROMTS)  ANO  ITERATION 
LIMIT 

READ  (11,10700  CLNCR,CLNCT,LIMIT 

REAO  MAX  FH/ACFT/OAY.NR  DAYS  IN  WAR  , TYPE  RQMTS  TO  C ALCULA TE ,0ES IREO 
ORDER  OF  RQMTS  OUTPUT  ANO  VARIOUS  PRINT  OPTIONS 

READ  111,10800)  FHN,NW,ISrL  ,I OR 0, lOPT 1 , lOPT 2 , 10 PT 3 , lOPT 9, lOPT 5 . IPR 
♦T,1PRT1 
INT  =  1 

IF  (NPl.EO.O.OR.IPRTt.LE.D  GO  TO  1500 

PRINT  THE  list  OF  FULL-SUB  PARTS  USED  IN  THE  REQMTS  CASES 

00  1900  1=1, NPl 
ll:IFSI I) 

IF  (NOOIl-l,5a).NC.O>  GO  TO  1900 
WRITE  16,10000)  CASE 
WRITE  16,10900)  KN1C 
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5 

1400  yniTE  (6,110001  II,ANSN(II|,*DESCIIII,C0STIIII,FRIII),2NRTIIII,BCV 
*iiiit0cv(iiiteciiii  tOCiiii.STKdii 

-■ 

- 

740 

741 

74  2 

1500  NP2r6 

74  3 

C 

744 

C  DCFINC  THE  NO-SUB  PART  SET  (INSIJtl  AS  ALL  PARTS  NOT  DESIGNATED  FOR 

»  • 

74  5 

C  the  full-sub  part  SET 

•  . 

746 

C 

* 

•  . 

747 

DO  1800  Nrl.NP 

IF  INPl.EO.OI  60  TO  1700 

i 

748 

■ 

749 

DO  1660  1=1, NPl 

IF  lIFSdl.EQ.KI  60  TO  1800 

750 

751 

1600  CONTINUE 

752 

1700  NP2=NP2*1 

75  3 

INS(NP2I=K 

754 

1800  CONTINUE 

755 

IF  INP2.EO.O.OR.IPRTl.Lr.PI  60  TO  2000 

1  • 

756 

C 

757 

C  PRINT  THE  LIST  OF  NO-SUB  PARTS  USED  IN  THE  REONTS  CASES 

r 

758 

C 

L 

759 

00  1900  t=t,HP2 

760 

II=INSIII 

• 

761 

IF  (HOOd-l.SOl.NE.OI  60  TO  1900 

WRITE  16.100001  CASE 

762 

' 

763 

WRITE  (6,111001  KNTC 

764 

765 

WRITE  (6,102001 

WRITE  (6,103001 

1900  WRITE  (6,112001  1 1 ,  ANSN  (III  ,AOE  SCdl  1  ,COST(  II 1  ,FR(  1 1)  ,2NRT(  II  t ,  BCT 
«(III.DCV(II l,BC(III,aC(III,STN( III 

> 

766 

767 

768 

C 

- 

-9 

■ 

769 

C  REAO  IN  THE  CUNULATIVE  NUNBER  OF  ACFT  DEPLOYED  IFOR  EACH  DAT  INTERVALI 

770 

C 

' 

771 

2000  READ  (11,91001  NACOEP 

772 

READ  111,91001  (IOAVdl,l=l  (NACOEPI 

REAO  111,91001  (NACIll,I=l,NACaEPI 

77  3 

774 

00  2200  1  =  1, NACOEP 

KUIOATdi 

775 

776 

K2=I0Ard«ll-l 

777 

IF  (l.ca. NACOEPI  N2=NW 

778 

DO  2100  J=N1,K2 

2100  ACIJISNACIll 

5 

779 

i 

782 

2200  CONTINUE 

C  READ  IN  THE  PR06RAH  FLVIN6  HOURS  IFOR  EACH  OAT  INTERVALI 

783 

C 

784 

READ  (11,91001  NFHOAT 

785 

REAO  (11.91001  (lOAYdl  ,I  =  1,NFHDATI 

•  , 

786 

REAO  (11,91001  INFhI1I,I=1,NFHDAYI 

787 

00  2400  1=1, NFHOAT 

788 

K1=IDAY(II 

i 

789 

K2=I0ATd*ll-l 

790 

IF  (I.EQ.NFHOAYI  K2=NH 

791 

00  2300  J=N1,K2 

792 

FHAIJI=NFHdl 

793 

2300  FHR(JI  =  NFHdl 

794 

2400  CONTINUE 

795 

C 

796 

C  REAO  IN  THE  NUNBER  OF  ACFT  LOST (ATTRITIONI  IN  EACH  DAY  INTERVAL 

797 

C 

798 

READ  111,91001  NLOAT 

i 

799 

800 

REAO  (11,91001  lIDATIII.Isl.NLDAYl 

READ  111,113001  (?LOSS(!f,I=l,NLOAT| 

801 

DO  2600  1=1, NLOAT 

802 

K1=I0AT(I I 

803 

H2=10AY(I*1I-1 

§6S 

ll.  K2=NH 

DO  2500  J=K1,K2 

.  .  • 

805 

. 

806 

2500  ALRIJi:7L0SSdl 

807 

2600  CONTINUE 

"  . 

808 

C 

809 

C  REAO  THE  DESIRED  HININIUH  ACFT  AVAILABILITY  OBJECTIVE  FOR  EACH  OAT  INTERVAL 

810 

C 

W 

811 

REAO  111,91001  NNOAT 

- 

812 

READ  lll,91C0l  linAT(II,I=l,NHOAYI 

READ  lll,114COI  (AH(II,I=1,NN0ATI 

DO  2800  I=1,NP0AV 

Rl:IDAVdl 

813 

814 

\ 

815 

1*. 

816 

K?=IDAVd*l  1-1 

-  , 

r. 

817 

IF  d.EQ.NNOATI  K2=NW 

818 

DO  27C0  J=K1,K2 

819 

2700  AVHIJI  =  AHdl 

§ 

■ 

•  ■ 

1**, 

.  * 

i 
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2800  CONTINUE 
C 

C  ACAD  lUP  TO  1001  PART  NUNBERS  OF  PARTS  SELECTED  TO  HAVE  •  CUNUL 
C  REQHT  THRU  OAV  N*  OUTPUT  FOR  EACH  DAT  N  OF  THE  SCENARIO 
C 

READ  111,91001  IHSEL 
READ  111.91001  tIPTIK).K=I,INSELI 
IF  lIPRTl.LE.Ol  GO  TO  3300 
2C0ST=a. 

C 

C  THRU  STMT  3S00, PROCESS  ALL  PART  DEPLOYHENTS 

DO  3000  K=1,NP 
SUN=0. 

C  FOR  EACH  PART.CALCULATE  TOTAL  ASL/PLL  OEPLOVNEN TS I SUH I , TOT AL 
C  NON-CONOEHNEO  PARTS  ISUNTl  AND  VALUE  OF  ENTIRE  CURRENT  INVENTORY. 

C  PRINT  SUNNARY  PART  OEPLOYNENTS  FOR  EACH  PART  <1N  ORDER  OF  INPUT) 

C 

00  29C0  1=1.29 

2900  suN=suN«pracp (m .i i 

SUNT  =  SUN*OSCR<K)*OUNSERtK  1*1 1 .-DC tK 1 1 *URE SI K I *OAT lOIR 1 .-2NRTI 
«  H))«URCSUIK)«I1.>BCIK  l»«2NRTIN)*URESUIKI*ll.-0CU)l 
ZC0ST=2C0ST«SUNT*C0S7fN» 

IF  INOOIK-l.Sn.NE.O)  60  TO  3000 

URITE  16,100001  CASE 

WRITE  16,115001 

WRITE  16,101001 

WRITE  16,103001 

WRITE  16,11600) 

URITE  16,10300) 

3000  URITE  16.11700)  K .K .ANSNIK 1 .AOE SC  IK  1 .COST  IN  I.CLASSI H 1 ,OSER I H) .DUNS 
«ERIKI ,URES IK), URESU IN  1 ,087101X1 .SUN, SUNT 
DO  3200  K=1,WP 

IF  IN00IIK-I)«3,60).NE.0)  GO  TO  3100 
WRITE  16,10000)  CASE 
WRITE  16,11800) 

URITE  16,11900) 

WRITE  16,12000) 

WRITE  16,10300) 

C 

C  PRINT  THE  UNAOJUSTEO  II. E,  ASL/PIL  ONLY)  PARTS  DCPLOYNENT 
C 

3100  WRITE  16.12100)  K  .ANSNIK I , AOE SC  IN  I 
3200  WRITE  16,12200)  IPTOEP IK ,L1 ,L=1 ,29 ) 

C  THRU  STHT  3500,  DISTRIBUTE  INITIAL  ISERV  C  UNSERV)  DEPOT  AND  INITIAL 
C  ISERVICEABLE)  WAR  RESERVE  STOCKS  OVER  DAYS.  IN  EACH  DISTRIBUTION 
C  IFOAY  IS  FIRST  DAY  OF  RECEIPT,  ILOAT  IS  LAST  DAY  AND  DANT  IS 
C  ANOUNT  RECEIVED  PER  DAY. 

C 

3300  DO  3500  Krl.NP 
1F0AV=0LAG«1 
ILDAY=OLAG*DOIS 
OANT=OSERIi )/00IS 

C  INITIAL  DEPOT  SERVICEABLES  ARE  DISTRIBUTED 
C 

CALL  GIST  IIFOAY,ILOAY,OANT,H ) 

IFOAVrOSTIK 1*1. 

OPEP:OCYIKI>2.«OSTiRI 

X=QREP 

IF  lOREP.LT.l.)  OREP=1.00a 
ILOAY=OSTIK l*OREP 
OAHT=ll l.-OCIK)l*OUNSERIKIl/ORCP 
C 

C  INITIAL  DEPOT  UNSERVICE A8LES  ARE  DISTRIBUTED  ILESS  CONDEHNA TIONS) 

CALL  OIST  IIFDAY.ILOAY.OANT.K ) 

ANT:I I.-ZNRTIK) I9URCSUIK IRli. -BCIK) ) 

IF0AT=1 

IF  I3CVIKI.LT.1.)  BCYIK)=1. 

ILOAVrBCYIN ) 

0AHT=ANT/BCY|N) 

c 

c  INITIAL  UNSERVICEABLE  WAR  RESERVES  REPAIRED  AT  RETAIL  ARE  DISTRIBUTED 

CALL  DIST  IIFOAV,ILOAV,OANT,K ) 

ANT:ZNRTINI«URCSUIK)«li.-OC|K )) 

IFDAY:1,*2.90STIK ) 

fLOAV=2.*OSTIK)*DREP 

DAHT=ANT/aREP 
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902 

903 
90H 
905 
935 

90  7 

908 

909 
913 

91  1 

912 

913 
919 
915 

It^ 

918 

919 

922 

92  3 
929 

925 

926 

927 

928 

929 

930 

931 

932 

933 
939 
935 
93b 

937 

938 

939 

990 

991 

992 

993 
999 
99  5 

996 

997 

998 
99  9 

950 

951 

952 

953 
959 

955 

956 

95  7 

958 

959 

960 

962 

963 

969 

965 

966 

967 

968 

96  9 

970 

971 

972 

973 
979 

975 

976 

977 

978 

979 

980 

981 

982 

983 


INITIAL  UNSERVICEABLE  MAR  RESERVES  REPAIRED  AT  DEPOT  ARE  DISTRIBUTED 
(INITIAL  SERVICEABLE  MAR  RESERVES. ALREADY  IN-PLACE.ARE  NOT  DISTRIBUTED! 

CALL  DIST  I IFOAV.ILOAV.OAHT.K  I 

IF  IIPRTI.LE.O!  GO  TO  3500 

IF  (NODI IK>1 )*3. 601. NE.C)  60  TO  3900 

WRITE  (6.100001  CASE 

WRITE  (6.123001 

WRITE  (6.119001 

!l;»! 

WRITE  PART  10.  IF  THE  PART  15  AN  INITIAL  DEPOT  UNSERVICEABLE  WITH 
A  REPAIR  TINE=O.PRINT  A  WARNING 


3900  IF  IX  .GE..0Uai.0R.0AMT.LE..301 I  WRITE  (6.121001  K,ANSN(KI.A 
*  OESCiRI 

«  WRITE  (6.129001  K.AHSN(KI,A 

PRINT  THE  ADJUSTED  (INITIAL  UNSERVICEABLE  DEPOT  L  WAR  RES  STKS  C 
ASL/PLL  DEPLOYED  AFTER  DAY  II  PARTS  OEPLOYNENT  (EXCLUDES  IN-PLACE 
ASL/PLL  ANO  SERVICEABLE  WAR  RESERVES! 


WRITE  (6.122001  (PT0CP(N.LI.L=1.29I 
3500  CONTINUE 

IF  (IPRT.LE.OI  GO  TO  3800 

PRINT  THE  SCENARIO  INPUT  DATA  SUNNARY 

00  3700  J=1.NW 

IF  (HOO(J-1«S1!.NE.OI  60  TO  3600 
WRITE  (6.10000!  CASE 
WRITE  (6.12500! 

WRITE  (6.12600!  AOOOST.CONVF. LIMIT . IE SS 
WRITE  (6.12700!  FHN .CLNCR .CLNCT 
WRITE  (6.128uai  ZCOST 
WRITE  (6.12900! 

WRITE  (6.130001 
3600  CALR=CALR«ALR(JI 

3700  WRITE  (6.131001  J.AC( Jl .FHR ( Jl, AVN( J! . ALRl J I.CALR 
3800  WRITE  (6.100001  CASE 
WRITE  (6,132001 

:  PRINT  A  REPORT  SUMMARIZING  OPTIONS  SELECTED  FOR  THIS  RUN 


IF  (ISEL.EO.OI  WRITE  <6 
IF  IISEL.EO.il  WRITE  (6 
IF  (1SEL.EQ.2I  WRITE  (6 
IF  (NFS.LT.gi  WRITE  (6. 
IF  (NFS.GE.OI  WRITE  (6, 
IF  IIORO.LE.OI  WRITE  (6 
IF  (I0RD.6T.0!  WRITE  16 
IF  IIOPTI.LE.OI  WRITE  ( 
IF  (i0PTi.6T.0i  WRITE 
IF  (I0PT2.LE.0!  WRITE 
IF  (I0PT2.GT,0!  WRITE 
IF  (I0PT3.LE.0!  WRITE 


IF  (I0PT3.ST,gi  WRITE 
iF  (i0PT9.LE.0!  WRiTE 
IF  (I0PT9.GT.0!  WRITE 
IF  (lOPTS.LE.OI  WRITE 
IF  (I0PT5.6T.0!  WRITE 


.133001  ISEL 
.13900!  ISEL 
,135001  ISEL 

13600!  NFS.ZDCY.ZNRTL.BREPL.FRLIM 
137001  NFS 
,138001  lORO 
.139001  lORO 

(6.192001  I0PT2 
(6,19300!  I0PT2 
(6,19900!  I0PT3 
(6,19500!  I0PT3 
(6.196001  I0PT9 
(6.197001  I0PT9 
16,198001  I0PT5 
(6,199001  I0PT5 
.iSOOOl  IPRT 
.15100!  IPRT 
6.152001  IPRTl 
6.15300!  IPRTl 


IF  (IPRT. LE .01  WRITE  (6 
IF  (IPRT. GT. 01  WRITE  (6 
IF  (IPRTl. LE.O!  WRITE  ( 

IF  I1PRT1.6T.0!  WRITE  ( 

WRITE  (6.159001  INT.INT 
DO  3900  i=l.NW 
3900  OCOSTF( I ! rO . 

DO  9000  1=1. NP 
9000  000I1!=C0STII ! 

XNT=0 

ORDER  THE  NO-SUB  PART  SET  ACCORDING  TO  DECREASING  UNIT  COST  (MOST 
EXPENSIVE  PART  FIRST! 

N0UHMY=NP 
DO  9300  Xrl.NP 

call  HAXC  INOUMMV.NOUT! 

IRCIK!:N0UT 
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|^=|RC(Kl 


NPl.LCiOl  GO  To  <1200 


<100 

<200 


00  <100  L=1,NP1 

IF  (IFSILI.CQ.III  60  TO  <330 


CONTINUE 
KNTlKNT*! 

INS<KNTt:lI 
<300  000111)=-!. 

IF  IIPRTI.LE.O)  60  TO  <600 


PRINT  SUHH6RY  PART  OCPLOVHCNTS  FOR  EACH  PART  UN  ORDER  OF  UNIT  COST  I 


00  <500  K=1,NP 
II=IRC(KI 

IF  (NOOIA-1 .511 .NE.O)  60  TO  <500 
WRITE  I61IOOOO)  CASE 
WRITE  I6.15S00I 
WRITE  I6.10300I 
WRITE  <6.116501 
WRITE  <6.103001 
<500  WRITE  <6,llf00)  K. 

<600  CALR=0. 


XI.AMSNIItt.AOESCIIIl  tCOSTIID.CLASSI  III 


CONPUTETHE  HINIMUN  NUMBER  OF  ACFT  <AI.L0WB<  1 1  I  REQUIRED  TO  MEET  THE  FLYING 
- - -  -  -  EACH  C‘  • 


PROGRAN/AVAILABILITY  OBJECTtWE  FOR 


OAT  I 


WRITE  <6.156001 
00  <700  !=1.NW 
CALR=CALR«ALR<1I 
ASURW<I)=ACf II-CALR 
XX:AHAXl<0.« ASURV< 11*11. -AVHI  III) 
TY=ANAX1<  0. t  ASURV  <I »-FHRI I)/FHM I 
«  LL0HB<I)=AHIN1IXX,YT» 

IF  < ALLOWBII I .EO.YT)  1FHCIII=0 
IF  <ALL0HB<I).E0.XX)  IFHCIII=1 
<T00  CONTINUE 

TTFH=0. 000001 


COMPUTE  TOTAL  FLYING  HOURS  IN  THE  FULL  FLYING  PROGRAM 


DO  <800  1=1. NW 
<800  TTFM=TTFH*FHRIX) 


COMPUTE  COEFFICIENTS  USED  BY  FUNCTION  SR  IN  THE  CALCULATION  OF 
NET  OEHANO 


00  <900  J=1.NP 

CF< JI=FR<J)«QPA<JT 

BF<UI=<1.-SCIJI)*<1.-7NRTIJ>)*CF<JI 
0F<JI=<1.-0CIJII*<2NRT<JI >*CFIJ> 
<900  CONTINUE 


IF  ONLY  ASSESSMENT  CASES  ARE  TO  BE  PROCESSED, SKIP  REQMT  CALCULATIONS 


IF  <10PT1.LE.0I  60  TO  7600 

IN0I=1 

IN02=2 


DETERMINE  WHETHER  ONLY  RESIDUAL  RON TS < I SEL=0>i0NLY  TOTAL  RQHTS< ISEL=1I . 
OR  BOTH  RESIDUAL  ANO  TOTAL  R0NTS4 IS EL=2 I  ARE  TO  BE  DONE  IN  THIS  RUN 


IF  <ISEL.EQ.2I  60  TO  5000 

IN0I=1*ISEL 

IN02=1«ISEL 


THRU  STMT  7500  PROCESS  ALL  REOUIREMENTS  CALCULATIONS  ANO  ASSOCIATED 
CAPABILITY  ASSESSMENTTS  FOR  BOTH  UNCONSTRAINED  COST  AND  CONSTRAINED 
COST  CASES 


5000  DO  7500  IN0=IN01,IN02 
ACL:0. 

CLSCLNCT 

!cost=o 

IF  <XN0.E0.2I  CL=CLNCR 


CALL  SUBROUTINE  UCROPS  TO  COMPUTE  THE  UNCONSTRAINED  COST  REOMTS 
SOLUTION.  THEN  CALL  SUBROUTINE  UCCAP  TO  GENERATE  THE  CAPABILITY 
ASSESSMENT  BASED  ON  THE  UNCONSTRAINED  COST  SOLUTION 


CALL  UCROPS  <IN0,I0PT<,I0PT5, lORDI 
CALL  UCCAP  <1N0) 
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FOLLOUING.  STHTS  THRU  STHT  T6gn  PROCesS  THC  CONSTRAINED  COST  CASE. 

;  IF  the  cost  LINIT  iCLI  IS  NEGATlREtONlT  CONSTRAINED  COST  PROCESSING 

IF  ICL.LE.O.I  60  TO  7500 
IW=NU 

UCNS=0.  NE 

FRACI=0. 

IF  THIS  IS  A  FULL  SUB  CASE  .OMIT  CONSTR  COST  ALGORITHM  1  ANO  ONLY 
PROCESS  CONSTR  COST  ALGORITHM  2 

IF  INP2.EQ.0I  60  TO  6600 

UP  TO  STHT  6600  PROCESS  THE  CONSTR  COST  SOLUTION  FOR  ALGORITHM  1 

RECOMPUTE  THC  COST  OF  THE  UNCONSTR  COST  SOLUTION 

00  5100  J=1,NP2 
II=INSIJI 

SlOO  UCNS=UCNS*COSTITI »«RNCStIII 
URITC  iS.lOOOOi  CASE 
WRITE  «6. 157001 

;  SAVE  THE  UNCONSTR  COST  SOLUTION  IN  AN  ARRAY 

00  5200  J=1.NP 
.5200  TRNCStUISRNCSIJI 

THRU  STMT  5000. THE  STANOARO  PARCON  NO>SUB  CONSTR  COST  ALGORITHM 
OPERATES  ON  THE  NO'SUB  PART  SET. 

CL1=CL 

CNC=CMINT-Cl 

‘  CNC  IS  the  S  amount  of  the  UNCONSTR  COST  SOLUTION  WHICH  IS  NOT  AFFORDABLE 
;  ANO  SO  MUST  BE  'UNB0U6NT'.  IF  CNC  .L7.  O.THCN  THE  UNCONSTR  COST 
:  SOLUTION  IS  ALSO  THC  CONSTR  COST  SOLUTION 

IF  (CNC.GT.O.I  GO  TO  5300 
IF  IINO.EQ.II  WRITE  (6.15000) 

IF  (IN0.CQ.2I  WRITE  16.15900) 

GO  TO  7500 

:  UNDER  ALGORITHM  1  LOGIC. THE  NO-SUB  PART  SET  REQMT  IS  *B0U6HT*  FIRST 
;  (OR.COUIVALCNTLT.  THE  FULL-SUB  SET  REQMT  IS  'UNBOueHT*  FIRST*). 

;  IF  CNC  .LT.  THE  COST  OF  THE  FULL-SUB  PARTS  IN  THC  UNCONSTR  COST 
:  SOLUTION  I0C0ST1)Nh)).THEN  the  entire  UNCONSTR  COST  NO-SUB  RCOMT 
:  IS  'BOUGHT  ANO  PART  OF  THE  UNCONSTR  COST  FULL -SUB  REQMT  MUST  BE 
:  *UNBOUGHTS  OTHERWISE  THE  ENTIRE  UNCONSTR  COST  FULL-SUB  REQMT  IS 
:  'UNBOUGHT*  ANO  ONLY  PART  OF  THE  NO-SUB  REQMT  MUST  BE  'BOUGHT*. 

'5300  IF  (CNC.GT.DCOSTKNW)  )  GO  TO  5600 
CL1=UCNS 
CL2:CL-CL1 
GO  TO  5900 

.5600  IF  INPl.EQ.O)  GO  TO  5600 

[  BEFORE  STARTING  ALGORITHM  1  PROCESS ING.IMIT lALIZE  FULL-SUB  REQUIREMENTS  TO  0 

00  5500  USl.NPl 
II=IFS( Jl 

.5500  RNCS(II)=0.  NE 

TRNCS  STORES  THE  NO-SUB  PARTS  NIX  PORTION  OF  THE  SOLUTION  FOR 
ALGORITHM  1 

'5600  CL2=0. 

CL1=CL-CL2 
CNC=UCNS-CL1 
00  5000  U=1.NP2 
II=INSIJI 

C=TRNCSIII)«COST(III 


TRNCSIIII=TRNCS(III-CNC/COST|II) 

IW  =  NU 

W 

60  TO  6200 

5700 

TRNrSIII)=0. 

CNCrCNC-C 

5B00 

CONTINUE 

GO  TO  6100 

59  00 

ircc:i 
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C  DCTERNINC  IFCC.THE  LAST  OAV  N  FOR  WHICH  'CUM  FULL -SUB  RCOMT  COST 
C  THRU  OAV  N*  IS  .LC.  CL2ITHC  AFFORDABLE  AMOUNT  OF  FULL-SUB  PARTS! 

C 

DO  6000  1=1, NH 

IF  I0C0ST1III.6T.CL2I  60  TO  6000 
IFCCn 

aCL=OCOSTl(II 
6000  CONTINUE 

WRITE  16,160001 

6100  IF  ICL2.aC.0C0STllNWI  I  WRITE  t6, 161001 

IF  ICL2.lt. OCOSTIINWII  WRITE  16.162001  CL2.BCL.IFCC 
1W=NH 
NW=IFCC 
C 

C  6ENERATE  THE  FULL-SU8  PARTS  MIX  ASSOCIATED  WITH  OAV  IFCC 
C 

CALL  UCPQPS  IINO.IOPTN.IOPTS, lOROI 
6200  WRITE  16.163001  CL.CLl 
WRITE  16.103001 

IF  ICL2.LE. .00011  WRITE  16. 164001 
NW=1W 
C 

C  NER6E  THE  JUST-COHPUTEO  FULL-SUB  MI  XI SUST AI NABI LI  TV  SOLUTTONI 
C  JUST  COMPUTED  WITH  THE  NO-SUB  NIX  •B0U6HT*  EARLIER  AND  STORE 
C  THIS  COMBINED  SOLUTION  IFOR  CONSTR  COST  AL60RITHN  II  IN  TRNCS 
C 

00  6300  I=1.NP2 
I1=INSIII 

6300  RNCSilII=TRNCSIIll 
00  6400  1=1. NP 
6400  TRNCSI1I=RNCSIII 
T0T=0. 

00  6S00  1=1, NP 

TOT=TOT«COSTIII*RNCSIII 
6500  RNCSIll=RNCSIII«STRIl t4IIND-l I 
IPSO 

c 

c  CALL  THE  CAPABILITY  ASSESSMENT  ROUTINE  IBUT  DON'T  PRINT  RESULTSI 
C  TO  COMPUTE  FNC.THC  FRACTION  FRACTION  OF  THE  FLTIN6  PROGRAM  ACHIEVED 
C  USING  THE  AL60ftITMH  1  SOLUTION 
C 

call  CCCAP  flNO.LINIT.CONVF.TTFH.XNTC.lP.FNC)  NEW 

FRACISFNC 

WRITE  16,165001  FRACt 

C  THRU  STMT  6800, GENERATE  THE  SOLUTION  FOR  CONSTR  COST  ALGORITHM  2. 

C  STORE  THAT  SOLUTION  IN  ARRAY  XRNCS. 

C  SUBROUTINE  UCROPS  HAS  ALREADY  OETERHINEO  lOCC I INO 1 , THE  LAST  OAV  N 
C  FOR  WHICH  'CUM  TOTALII.E.  ALL  PARTS  I  REQNT  COST  THRU  OAT  N* 

C  IS  .LE.  CL. THE  IlNPUTt  COST  LIMIT. 

C 

6600  IF  llOCCIINDI.LE.1.0R.10CCilNOI.6E.NHI  CO  TO  7500 
NW=IOCCIINO» 

00  67C0  1=1. NW 
6700  FHAI II  =  FHRI  1 1 

CALL  UCRQPS  I1N0,I0PT4.I0PT5. lOROI 
00  68C0  J=1,NP 
XRNCSI JI=RNCSIJI 
NW  =  IW 
IP=0 

6S00  RNC5I JI=RNCSIJI«STKIJI«IIND-1 ) 

C 

C  CALL  THE  CAPABILITT  ASSESSMENT  ALGORITHM  TO  COMPUTE  THE  FRACTION 
C  FLYING  PROGRAM  COMPLETED  WITH  THE  ALGORITHM  2  SOLUTIONIBUT  DON'T  PRINT  IT  I 

CALL  CCCAP  IINO.LINIT.CONWF.TTFH.KNTC.IP.FNCI 
FRAC2=FNC 

WRITE  16,166001  FRAC2 

C  CHOOSE  THE  CONSTR  COST  ALGORITHM  SOLUTION  WHICH  GIVES  THE  HIGHER 
C  FRACTION  FLYING  PROGRAM  ACHIEVED  AND  CALL  SUBROUTINE  CCLIST  TO  PRINT 
C  THE  SELECTED  SOLUTION 
C 

IF  IFRAC1.LC.FRAC2I  60  TO  7100 
00  6900  J=1,NP 
6900  RNCSI JI=TRNCSIJ7 
IG:l 

CALL  ^F^LIST  lIG.lORO.INOl 
00  7000  j:l,NP 

7000  RNCSI J|:TRNesfJI*STK| J|*| INO- II 
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CALL  CCCAP  (tNO«LINIT.CONVF,rrFN,KMTC.IP,FNC) 

60  TO  T«00 
7100  16=2 

00  T2C0  J=1,NP 
7200  RNCSI  JirlANCSUI 

CALL  CCLIST  It  6 «I0«D. INOI 
00  7300  J=1.NP 

7300  RNCSIJI=XRNCSIJI«STK«Jt*l  IND-1> 

1P=I 

C  CALL  THE  CAPABILITY  ASSCSSNCNT  AL60RITHN  AGAIN  TO  PRINT  OUT  ASSCSSNCNT 
C  RESULTS  FOR  THE  SELECTEO  CONSTR  COST  SOLUTION 

^  CALL  CCCAP  (INO.LIHlT.CONVF.TTFH.MNTCtlPtFNCI 

7N00  NM=IM 

DO  7NS0  1=1. NU  51“ 

7RS0  FHA<It=FHRIII 
7500  1C0ST=0 
C 

C  THRU  STMT  8900  00  CAPABILITY  ASSESSMENT  OF  'CURRENT  INVENTORY* 

C  UNDER  VARIOUS  PARTIAL -SUB  POLICIES 
C 

7600  00  7700  K=1,NP 
7700  RNCS|Hl=STKtKI 
IP=1 
IN0=2 
C 

C  DO  A  CAPABILITY  ASSESSMENT  FOR  THE  PART-SUB  POLICY  USED  IN  THE 
C  REOMTS  CALCULATIONS 

CALL  CCCAP  lINO.LlMlTtCONVFtTTFHtHNTC.IP.FNCI 
KNTC=2 
C 

C  RESET  STOCK  TO  INITIAL  LEVELS  ANO  CLEAR  FULL-SUB  AND  NO-SUB  PART 
C  ARRAYS  PRIOR  TO  RESETTING  THENIFOR  A  NEW  PART-SUB  POLICY) 

C 

7800  00  7900  K=1.NP 

RNCSlRI=StHIKt 
INSIKI=0 
7900  IFSIHISO 
C 

C  READ  ANOTHER  PART-SUB  POLICY  IN  TERMS  OF  EITHER  THE  NR  C  DESIGNATION 
C  OF  FULL-SUB  PARTSIIF  NPTH  .61.  01  OR  ELSC  THE  NR  I  0ESI6NIT10N 
C  OF  OF  NO-SUB  PARTS  Ilf  NPTNS  •GT.O) •  ONLY  ONE  SET  IS  READ* 

READ  I 1I,9100.EN0S18700I  NPTFS, NPTNS 
IF  (INPTFS«NPTnSI.LC.OI  60  TO  16700 
^  IF  INPTFS.lE*0I  60  TO  8200 

C  READ  IN  THE  0ESI6NATC0  FULL -SUB  PARTS  FOR  THIS  POLICY.  ALL  OTHER 
C  PARTS  ARE. BY  DEFAULT.  NO-SUB  PARTS. 

NP1=HPTFS 

READ  111,91001  IIFSIl).I=l.NPTFSi 
NP2=0 

DO  8100  R=1,NP 
00  8000  I=1.NP1 
.  IF  IIFSIII.EO.K*  GO  TO  8100 
8000  CONTINUE 
NP2=NPZ«l 
INSINP2I=N 
8100  CONTINUE 

60  TO  8500 
8200  NP2=NPTNS 
C 

C  READ  IN  THE  designated  NO-SUB  PARTS  FOR  THIS  POLICY.  ALL  OTHER 
C  PARTS  ARE, BY  DEFAULT,  FULL-SUB  PARTS. 

READ  111,91001  IINSIll,I=l.NPTNSi 
NP1=0 

00  8900  H=1.NP 
00  83D0  I.1.NP2 

IF  IINSII I.EO.H I  60  TO  8900 
8300  CONTINUE 
NP1=NP1*1 
irSINPl»=K 
P900  CONTINUE 

8500  IF  II0PT2.LE.0I  GO  TO  8700 

C  PRINT  the  COMPOSITION  OF  THE  FULL -SUB  PART  SET  FOR  THIS  PART-SUB 
C  POLICY 
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00  SbOO  1=1. NPl 
IT:IF5II1 

IF  INOOIl-l.SOl.NC.Qt  eo  TO  0600 
UffITC  (6tl000ni  CASE 
URITE  16,109001  KNTC 
WRITE  (6,102001 
WRITE  (6,103001 

8600  WRITE  (6,110001  IT  ,  ANSN  (1 1 1 ,AOE SC ( 1 1 1 .C0ST( II > ,FR(  1 1 ) .ZNRT  (  11  I.  BCT 
*(III,OCY(III,BC(II l,OC(IIt,STKI II  I 
8700  IF  (IOPT3.LE.OI  60  TO  8900 
C 

C  PRINT  THE  COMPOSITION  OF  THE  NO'SUB  PART  SET  FOR  THIS  PART-SUB 
C  POLICY 
C 

00  8800  1=1, NP2 
II=INS(II 

IF  (H00(l-l,S01.NE.0t  60  TO  8800 
WRITE  (6,100001  CASE 
WRITE  (6.111001  KNTC 


WRITE  (6,100001  CASE 
WRITE  (6.111001  KNTC 
WRITE  (6,102001 
WRITE  (6,103001 

8800  WRITE  (6,112001  I T  ,  ANSN (IT  I ,A0E SC ( 1 1 1 ,COST( II I ,FR(  I II  ,2NRT(  II  )  ,  BCY 
*( ITI,0CT(I1I,BC(1II,0C(I1I,STHI II  I 
IN0=2 
C 

C  COMPUTE  AND  PRINT  CAPABILITY  ASSESSMENT  RESULTS  FOR  ‘CURRENT  INVENTORY* 
C  WITH  THE  NEW  PART-SUB  POLICY 
C 

8900  CALL  CCCAP  ( INO .LIMIT .CONVF .TTFH.KNTC .IP. FNC) 

KNTC=RNTC*1 

C 

C  BO  BACK  AND  PROCESS  ANOTHER  PART-SUB  POLICY  FOR  USE  IN  CAPABILITY 
C  ASSESSMENT 
C 

GO  TO  7800 

9300  FORMAT  (2FS.2,IS,2FS.ai 

9100  FORMAT  (16151 

9200  format  (F5.0,F5.3,F5.0»F10«6I 

9300  FORMAT  (1X,aI6I 

9«l00  FORMAT  (//I 

9500  format  (2X,A1S.F9.0,5X,F3.0,FS.0,SP3, 0,11, 101,151 

9600  FORMAT  (/.SF6*0,/I 

9T00  FORMAT  (121 

9830  FORMAT  (A16I 

9900  format  (10P10<0I 

10300  FORMAT  I IHl ,30X, ‘CA SC=  *,A16I 

10100  FORMAT  (//,*  ITEMS  RANK  ORDERED  IN  NORMAL  INPUT  ORDER*l 

10200  format  (/,‘  PART* ,SX,‘MSM‘,19X, ‘DESCRIPTION*, 7X ,‘  COST  OST  FAIL*,* 

*  RT  NRT5  BCY  OCT  ORT  BC5n  DCON  QPA  ESS  CLASS  INIT  STN*I 
10330  FORMAT  (/I 

10900  format  (9X, A16,2X«A16,F8.0.F3,0,FB.6,FS.2,3F5.0,2F5.2,1X,F3,0,IS,1 

*0X, 1101 

ICSOO  FORMAT  (1X,I9,9X,A16,2X,A16,FB.0,F3>0,F8.6,F5,2,3F5.0,2F5.2,1X,F3. 
«a.I5,lX,A8.F10.1i 

10600  FORMAT  (*  tOTAL  NR  PARTS=*,I9,*  NR  USED=*,I9> 

lOrOO  FORMAT  (IX, FIA.O.FIS. 0,151 

10800  format  (1X,F9.1,IS,SX,10ISI 

10900  format  (//,*  FULL  SUB  ITEMS  FOR  POLICY*. 131 

11300  FORMAT  ( lx ,I9,9X,I16,2X,A16,FB.0,3X ,F8 .6,F5 .2 ,2F5.0,SX, 2F5. 2, IX ,10 
♦X,*FULL  SUB*,F10.0I 

11100  FORMAT  (//,*  NO  SUB  ITEMS  FOR  POLICY*, 131 

11200  FORMAT  (1X.I9.9X,116,2X,A16,F8.0,3X,F8.6,F5.2,2F5.0,SX,2FS.2,1X,10 

*x,*  no  sua*,Fio*ol 

11300  FORMAT  (IbFS.Ii 
11900  FORMAT  I16FS.2I 
11500  FORMAT  (/,109X,*  OEPLOYEO*! 

11600  format  (*  RANK  PART • ,8X , *9 SN* , 1 8X , *DE SCRI PTION* , 1 3X , *C0 ST  * , *  CL 

*ASS*,2X.*0SERV  DUNSR  WRSRV  WRUNS  DAYl  DAT2-  TOT  NC*I 
11650  FORMAT  I*  RANK  PART  * , BX , *MSN* ,1 BX , *OESCRIPT ION * , 1 3X , ‘COST *  I 


11700  format  (2IS,5X,A16,SX,A16,1X,F19.0,1X,AB,1X,5F6.0,2F7.0I 

nsoo  format  (//,'  UNADJUSTED  PARTS  DEPLOYMENT  BY  DAY  INTERVAL*! 

900  FORMAT  (/,•  -5  -10  -15  -20  -25  -30  -35  -90  -95* 

♦,*  -50  -55  -60  -65  -70  -75  -80  -85  -90  -95*,* 


♦  -1C0*I 

12300  FORMAT  (•  -105  -110  -115 

12100  FORMAT  (I5,2X,A16,2X,A16I 
12200  format  (IX,20F6.0I 
12300  FORMAT  (//,*  ADJUSTED  (FOR 

♦  I 


ADJUSTED  (FOR  DEPOT  STKSI  PARTS  DEPLOYED  BY  INTERVAL* 


12900  format  II5,2X,AI6,2X,A16,3X,*«  WARNING*  DEPOT  UNSERV  STK  W/  DEP*,* 
*0T  REPAIR  tlME=n  (CHGEO  tO  11*1 
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1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

Uil 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

m 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 


12500  FORHAT  I//,  lOX. 'SCENARIO  INPUT  DATA  SUHNARV'I 

12600  format  I//,5X,>0ST  OFFSET:* .F6. 1. *  OATS  DESIRED  CONVERGE CE =*  .FS 
♦  .3,//.3X,'NAX  1TERATI0MS=',I3.3X,'HAX  E  SSEN  TI AL  IT’'=  *1  ^  3  » 

12700  FORMAT  l/,5X,'  MAX  FLT  HRS/ ACF T/DA V= * , FS . 1  |4X , • ADD -ON  COST  LI'.'H 
*IT=*.Fl?.Ot//ilXt*TOTALtINIT  INV=OI  ROHT  COST  L IHIT:* ,F 13.0  I 
12800  FORMAT  l/,SX,'  COST  OF  CURRENT  INVENTORY: * .F14 .0) 

129J0  format  i/,13X,'CUM  ACFT  PROGRAM  MIN  REQ  ACFT  CUN  ACFT't 
13000  FORMAT  «7X.*0AV  OEPLOVEO  FLT  HRS  AVAIL  LOST' , 7 X , 'LOS T' I 

13100  format  tSX, 15. Fll. 0, FIO. 0. F10.2  ,F8,1. Fll.lt 

13200  FORMAT  l//,10X,*  «««•««  OPTIONS  CHOSEN  FOR  THIS  RUN  ••••*•*1 
13330  FORMAT  I /// /,  SX  ,*ISEL  =  *  .1 3.  *  ONLY  THE  TOTALdNIT  STK:OI*,*  ROM 

•TS  ARE  COMPJTEO  IN  THIS  RUN  *1 

13400  format  l////.SX,*ISEL=^tI3,*  •*  ONLY  THE  RESIOUALl INIT  STNrCURR*. 

«*  INVI  ROHTS  ARC  CONPUTEO  IN  THIS  RUN  *> 

13500  FORMAT  I////.5X.*ISEL:'.I3,  *  ••  BOTH  THE  TOTALIINIT  STX=OI  AND" 

'RESIOUALIINit  STK=CURR  INVI  RONTS  ARE  IN  THIS  RUN  «**l 
13600  format  (//,SX.*NFS=*,I3t*  «•  FULL  SUB  SET  IS  CHOSEN  ACCORDING*.* 

*T0  A  DEPOT  REPAIR  CYCLE  EXCEEDI NG^ .F 12 .0. *  OATS  OR  NRTS  '.'CXCECOI 
*NG*iF6.3./.  ISX. *0R  RETAIL  REPAIR  TINE  EXCEEDING  *  .F 8.0. *  OR  FAILU 
*Re  RATE  EXCEEDING*. F9. 61 

13700  FORMAT  I//, SX , *NFS=*, 13 .*  ••  FULL  SUB  SET  IS  SPECIFIED  BY  INPUT'I 

13800  FORMAT  l//.5X,*IORO=<.I3.*  ••  COMPUTED  RONTS  LISTS  HILL  BE  IN  *.* 

*OROER  OF  DECREASING  UNIT  COST  OF  PART* I 
13900  FORMAT  l//,5X.*IORO=*,i3.*  *•  COMPUTED  RONTS  LISTS  HILL  BE  IN  *.* 

♦ORDER  OF  decreasing  RONT  AMOUNT  FOR  PART* I 

-  --  -  assessment  cases  hill  BE  *,*0 


14000  FORMAT  l//,5X.*I0PTl:*.13,* 
♦ONE  IN  THIS  RUN'I 


*•  BOTH  ASSESSMENT  AND  RONT  CASES*.* 


14100  FORMAT  4//.SX.*IOPTl:*.I3.* 

♦HILL  BE  DONE  IN  THIS  RUN'I 
14200  FORMAT  (//.SX, *I0PT2:*.I3.*  •*  THE  FULL  SUB  PART  SETS  USED  IN*.* 

♦ASSESSMENT  CASES  HILL  NOT  BE  PRINTCD'I 
14300  format  «//.SX,*I0PT2=*.IS.*  ••  THE  FULL  SUB  PART  SETS  USED  IN*.* 

♦ASSESSMENT  CASES  HILL  BE  PRINTED*! 

14400  format  I//.SX, *I0PT3=*.I3.*  •«  THE  NO  SUB  PART  SETS  USED  IN*.*  AS 

♦SESSMENT  CASES  HILL  NOT  BE  PRlNTED'l 
14500  FORMAT  «//,5X,*IOPr3=*.I3,*  ••  THE  NO  SUB  PART  SETS  USED  IN*.*  AS 

♦SESSMENT  CASES  HILL  BE  PRlNTED'l 

14600  FORMAT  I //. SX, *I0PT4= * . I3«*  ««  THE  UNCONSTR  COST  RONTS  LISTS*,*  H 

♦ILL  NOT  be  PRINTEOIBUT  ARE  COMPUTEDI'I 
14700  FORMAT  l//,5X,*I0PT4S*,13,*  ••  THE  UNCONSTR  COST  HOMTS  LISTS*,*  H 

♦ILL  BE  PRINTED  *1 

14800  FORMAT  «//, 5X , •IOPTS=*, IS,*  ••  THE  CUN  ROMT  BY  DAY  COST  LISTS*,* 
♦HILL  NOT  BE  PRINTED  •» 

14900  FORMAT  «//,SX, • I0PT5S*, 13,* 

♦HILL  .BE  PRINTED  *1 
15000  format  «//,5X,'lPRT=*,13,* 

♦HILL  NOT  BE  PRINTED  *1 
15100  FORMAT  I// , SX , * IPRTs* ,I 3, * 


15200 


^pJIffcAT®  I//"5X,^IPr{i=*, 


13, 


*«  THE  CUN  RONT  BY  DAY  COST  LISTS*,* 

**  THE  SCENARIO  INPUT  DATA  SUMMARY*.* 

••  THE  SCENARIO  INPUT  DATA  SUMMARY*.* 

,  _  ••  THE  FULL  SUB  AND  NO  SUB  PART  *,*  S 

♦ETS  IFOR  RQMT  CASESI  HILL  NOT  BE  PR INTED* »/ ,13X , *NOR  HILL  *,*THE  I 

♦nput-ordered  and  cost-ordered  parts  input  lists  *1 

15300  FORMAT  I//,5X,*1PRT1=*,I3,*  ••  THE  FULL  SUB  AND  NO  SUB  PART  *,*  S 

♦ETS  IFOR  RQMT  CASESI  HILL  BE  PR  INTED*  ,/ ,1 3X  ,* AS  HILL  *,*THE  INPUT- 
♦OROFREO  AND  COST-ORDERED  PARTS  INPUT  LISTS  *1 
15400  format  I//,5X,*INT=*,I3,*  *•  THE  PARTIAL  SUB  ROMT  ALGORITHM*,*  HI 

♦LL  TEST  AT  INTERVALS  OF*, 13,*  I ALLOHABLE  NMCS  ACFTI  *1 
15500  FORMAT  I/,*  ITEMS  RANK  OROEREO  BY  DECREASING  PART  COST'I 
15600  FORMAT  IIHII 

15700  FORMAT  l//,20X.*4**  CONSTRAINED  COST  SOLUTION  EVALUATION*,*  REPORT 

♦  •••*,///l 

15300  FORMAT  I  IHl,//,  lOX.'THE  UNCONSTR  COST  TOTAL  RONT  SOLUTION  IS*,*  AL 
♦SO  THE  CONSTR  COST  TOTAL  ROMT  SOLUTION* I 
15900  FORMAT  I1H1,//,10X,*THE  UNCONSTR  COST  RESIDUAL  RONT  SOLUTION  IS*,* 

♦  ALSO  THE  CONSTR  COST  RESIDUAL  RQMT  SOLUTION* I 

16000  format  I//,10X,*ALL  INO  SU8I  PARTS  ARE  AFFORDABLE  IN  CONSTRAINED* 
♦,*  COST  SOLUTION  1*1 

16100  FORMAT  I//,10X,*ALL  FULL  SUB  PARTS  ARC  AFFORDABLE  IN  CONSTRAINED* 
♦.*  COST  SOLUTION  1*1 

16200  format  I//,5X,F12.0,3X,*APPR0XIHATED  BY'.FII.O,*  CUM  FULL  SUB*,* 
♦PART  COST  THRU  DAY*  ,14.*  IS  USED  TO  BUY  FULL  SUB  PARTS'I 
16300  FORMAT  I//, lOX, 'CONSTR  COST  L IN  IT  =  *  ,F 12  .0, 3X, *0F  HH ICH* ,F 12  .0. 3 X, * 
♦CAN  BE  USEO*t//|IOX,*TO  BUT  INO  SUB  I  PARTS  FROM  THE  UNCONSTR*. 

♦*  COST  SOLUTION*! 

16400  FORMAT  l//,10X,*N0  FULL  SUB  PARTS  ARE  AFFORDABLE  IN  CONSTRAINED* 
♦,*  COST  SOLUTION  1*1 

16500  FORMAT  I//,SX(*ThE  FIRST  CONSTR  COST  SOL  YIELDS  AN  AV6  FRAC*,*  PGM 

♦  FLY  MRS  aCh:*,F5.3I 

16600  FORMAT  I//,5X,*THE  2N0| SUSTNBLT VI  CONSTR  COST  SOL  YIELDS  AN*.*  AVG 

♦  FRAC  FM  ACN='.FS.3I 
1670D  END 
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SUBROUTINE  CCCAP 


SUflPOUTINC  CCCAP  UNO, LIMIT »CONVF,TTFH,KNTC .IP, FNCt 
NANF:  CCCAP  TVPCt  SUBROUTINE 

PURPOSE;  THE  CCCAP  (CONSTRAINED  COST  CAPABILITV  ASSESSMENT!  SUPROUTINE 
COMPUTEi  FLEET  CAPABILITY  ASSESSMENT  (AV6  A VAIL ABIL ITY ,FRAC TION  FLYING 
PROGRAM  ACHIEVEO.PGM  FLYING  HRS  /ACFT/DAV  I  BASED  ON  THE  CONSTRAINED  COST 
SOLUTION  BEING  STOCKED  IN  THE  UAR  RESERVE 

called  BY:  MAIN  PROGRAM 

CALLS 

-FUNCTION  SRt  COMPUTES  CUMULATIVE  NET  DEMAND  THRU  A  SPECIFIED  DAY 
FOR  A  SPECIFIED  PART 

FILES  USED  :  INPUT  -  NONE 

OUTPUT  -  UNIT  6  (PRINT > 


ARGUMENTS 


TYPE  DESCRIPTION 

FIXED  INDICATOR  OF  WHETHER  TOTaLIINIT  STN=0I  OR 

RESIDUALIINIT  STK=*CURPENT  INVENTORY*!  REQMTS 
ARE  BEING  PROCESSED  .lNO=i  INDICATES  TOTAL 


LIMIT 


CONVF 


FIXED 


FIXED 


FIXED 


REQMTS.  INO=2  INDICATES  RESIDUAL  REQMTS. 

THE  MAXIMUM  number  OF  TTERATIONS  I  PER  DAY! 
WHICH  THE  CONSTRAINED  COST  CAPABILITV 
ASSESSMENT  ALGORITHM  ISUBROUTINE  CCCAP! 

WILL  PERFORM  BEFORE  IT  TERMINATES 

THE  CONVERGENCE  THRESHOLD  IINPUT!  USED  IN  THE 
CAPABILITY  ASSESSMENT  WITH  CONSTRAINED  COST  ON 


THE  CONVERGENCE  THRESHOLD  IINPUT!  USED  IN  THE 
CAPABILITY  ASSESSMENT  WITH  CONSTRAINED  COST  OR 
WITH  *CURRCNT  INVENTORY* 

TOTAL  flying  HOURS  IN  THE  FULL  SCENARIO 
FLYING  PROGRAM 

THE  PARTIAL-SUB  POLICY  BEING  PROCESSED.  NNTC=t 
IS  THE  POLICY  USED  IN  REQMTS  CALCULATIONS  AND 
IN  THE  1ST  'CURRENT  INVENTORY*  CAPABILITY 
ASSESSMENT,  KNTC=2.3...  ARE  ADDITIONAL  POLICIES 
(INPUT!  USED  ONLY  iN  CAPABILITY  ASSESSMENTS 
OF  CURRENT  inventory 

INDICATOR  TELLING  THE  CONSTR  COST  CAPABILITY 
ASSESSMENT  ROUTINE  (CCCAP!  WHETHER  TO  PRINT  THE 
amount  of  SOLUTION  REQMT.  THIS  IS  SET  BY  THE 
MAIN  PROGRAM. 

FRACTION  OF  FLEET  FLYING  HR  PROGRAM  (FULL  WAR! 
WHICH  CAN  BE  ACHIEVED  WITH  THE  CONSTR  COST 
SOLUTION  INVENTORY  OR  WITH  'CURRENT  INVENTORY* 


LOCAL  arrays 


ONOT( Jl 


FHNC( II 
FHN2III 


DIMENSION  TYPE 
300  REAL 


120  REAL 
120  REAL 


DESCRIPTION 

WORKING  VARIABLE  USED  IN  THE  CALC  OF  NET  DEMAND 
FOR  PART  J  ON  DAY  I  DURING  I TE RA TI ONS ( TO  COMPUTE 
ACHIEVED  FLYING  HRSI  FOR  EACH  DAY 

NUMBER  OF  ACHIEVED  PROGRAM  FLYING  HRS  ON  DAY  I 

FRACTION  OF  PROGRAM  FLYING  HRS  WHICH  ARE  ACHIEVED 
ON  DAY  I 


COMMON  BLOCH  (UNLABELEDI  ENTRIES 


DIMENSION  TYPE 


DESCRIPTION 


AC(I) 


120  PEAL  NR  ACFT  DEPLOYED  ON  DAY  I 
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ll 

E  ALLOWBdl 

120 

real 

4 

C 

s 

c 

6 

c 

T 

C  ASURVdl 

120 

real 

a 

c 

V 

C  AVAV6(NI 

6 

real 

0 

C 

I 

c 

2 

c 

3 

c 

4 

c 

s 

c 

1 

B 

c 

9 

c 

00 

c 

oj 

c 

02 

c 

03 

c  CASE 

CHAR 

04 

c 

OS 

C  CL 

1 

REAL 

06 

C 

07 

C 

38 

C  ONO(JI 

300 

real 

09 

c 

10 

c 

II 

c 

12 

c 

13 

c 

14 

c 

15 

16 

C  000(JI 

c 

300 

REAL 

18 

c 

c 

19 

c 

120  aCM. 


c 

i 

c 

c 

c 

c 

C  FHN 


c  FHa*aoiR,ii  ),i2o  acM. 


MAXImiH  ALLOUABLE  NNCS  AC  ON  OAV  I  WHICH 
MILL  still  allow  ACHICVNEMT  OF  CASE  OBJECTIVE 
IFLTIMe  HOUa  ANO  AVAILABILITVI  ON  DAT  I 

Na  AC  SUaviVING  INOT  ATTBITTEDiON  OAT  I 

AVAV6I1I=AV6  ACFT  AVAIL  ,FRON  CAFA8ILITT 
ASSESSHCNT, BASED  ON  ST0CKA6E  OF  EITHER 
CURR  INV  OR  I  CURB  INV  •  CONFUTED  AOO-ON 
REQNTS  SOLUTtONI 

AVAV6l2l:A*a  HIN  ACFT  RCO’O  TO  ACHIEVE 
THE  FLTING  HR/AWAILABILITT  OBJECTIVE. 

AVAVGIIISAVG  FLT  HR/AVAIL  ACFT  /  DAT 
•  FROM  CAFABUITV  ASSESSNENT,  BASED  ON 

eitmcr  cuaa  inv  or  icurr  inv  •  the  solution 
REONTI  BEIM  STOCAED. 

CASE  ID 

the  cost  limit  (AS  SFECIFIED  BT  INFUTI  USED 
IN  THE  eOMSTRAIMCD  COST  REONTS  CASE. 

HORKINa  VARIABLE  USED  IN  CALCULATION  OF 
NET  DENANOISRI  I.J.  ..I  I  FOR  FART  J  ON  DAV  1 
OURINB  CAFARILITT  ASSESSHCNT. 

WHEN  (CUNIMET  OHO  THRU  DAT  I  IS  BEING 
CALCULArEO.ORO  IJ>  IS  (CUHI  NCI  OHO  THRU  THE 

frevious  oat.rased  on  an  initial  STK=0. 

ARRAT  STORING  THE  ATTRIBUTE  TO  BE  SORTED  ON 
IN  SUBROUTINE  NAXC.  IN  NAIN  FBN.THIS  HAS  FART 
UNIT  COST  FOR  FART  J.  IN  SUBROUTINES  CCLIST  S 
OCROFS.TMIS  MAS  THE  AHOUMT  OF  THE  SOLUTION 
REOHT  FOR  FART  J. 

OURINB  THE  CONSTR  COST  CAFARILITT  ASSESSNENT 
(SUBROUTINE  CCAFSt  THIS  IS  THE  INITIAL  ESTIHAI 


THIS  IS  RECURSIVELT  CONFUTED. 

NAXIHUH  FLTINS  HRS  FCR  ACFT  FER  DATdNFUTI 

FHFAF0(1,II=FLTING  HRS  FER  AVAILABU  ACFT  FER 
FOR  OAT  I  UNDER  THE  SFECIFIED  REPLACEMENT 
FOLICT  based  on  stocking  (CURRENT  INV  * 

THE  UNCONSTRAINED  COST  SOLUTIONI 


43 

C  FHRdI 

C 

c 

120 

REAL 

44 

45 

46 

C  ICOST 

C 

c 

1 

FIXED 

47 

4S 

49 

a 

H 

c 

c 

c  IFS(JI 

c 

300 

FIXED 

e 

C  1NS(JI 

300 

FIXED 

13 

H 

60 

61 

c 

c  NF 

C 

1 

FIXED 

c 

c 

C  HFl 

C 

c 

1 

FIXED 

62 

C  NF! 

1 

FIXED 

63 

C 

FHFAF0(9iII=FLTIN6  HRS  FER  AVAILABLE  ACFT  FC 
FOR  OAT  I  UNDER  THE  SFECIFIED  REFLACENCNT 
FOLICT  STOCKING  EITHER  CURRENT  |NVCNT0RT  OR 
(CURR  INV  *  THE  constrained  COST  SOLUTIONI 


constrained  cost  SOLUTIONI 


FLEET  program  FLTInG  HOURS  REQUIRED  ON  OAT  I 
(ACCORDING. TO  THE  INPUT  FLTING  HR  FR06RANI 

INDICATOR  WHICH  TEUS  SUBROUTINE  UCROFS  WHETHER 
TO  PRINT  THE  FARTS  REOHTS  LIST  10=00  1=00N*T>. 
REONTS  LIST  IS  NOT  FRINTEO  DURING  CONSTRAINED 
COST  REDNT  CALCULATIONS. 

ARRAT  STORING  THE  PARCON  FART  NUMBERS  OF  THE 
FARTS  IN  the  full-sub  PART  SET. 

ARRAT  STORING  THE  FARCON  FART  NUMBERS  OF  THE 

farts  in  the  no-sub  fart  set. 

NR  OF  FART  TTFES  PROCESSED  IN  RUN.  (THIS 

total  number  of  'PART  NUMBERS*  IN  THE  FULL -SUB 
FART  SET 

TOTAL  NUMBER  OF  'FART  NUMBERS*  IN  THE  NO-SUB 
FART  SET 


F1'":0  L£MGTM«0»»'I  of  SCFNARIO 


PTDEF  f J  ,K  1 

’P0,7N 

REAL 

total  AMOUNT  OF  INITIAL  STOCK  FOR  PART 
RECEIVEU  AT  THEATCRfSXCLUOING  1N-PLAC£ 
PET. SEN  PAY  5*K-<>  AND  DAY  s,x 

J 

STOCK  » 

CPA IJ> 

REAL 

THE  ’CUAMTITY  PER  APPLICATION*  FOR  PART  J. 
l.F.  the  STANCARF  number  OF  ITEMS  "F  PART  J 
TNSIALLET  On  each  operational  ACFT 

RNCflJ 

m: 

REAL 

AC  AVAILABILITY  IMPLlfO  PY  ST0CK*GE  OF 
ICOMPUTEP  RQMT  ♦  CURRENT  INVENTORY »  OH 
rIcCKAGE  OF  ONLY  THE  CURRENT  INVENTORY 

BY 

RNCSIJ) 

f  ~ 

REAL 

THE  SUM  OF  THE  cCMPUTeO  RQMT  FOR  PART 
the  cum  INITIAL  STOCK  ISSUEO/DEPLO YED 

OAf  1 

J  ANP 
THRU 

SUFUIII 

1' 

real 

TOTAL  STOCKOUTS  OVER  ALL  PARTS  IN  THE 
PART  SET, AS  CALCULATED  DAY  I  DURING 
CAPABILITY  ASSESSMENT 

NO-SUB 

COM"Of; 

»ci  u'l , 

ALLOhfl l?ri , 

AVKfirbit 

COHO* 1 3 no  I, 

CnCSI’CDI, 

ocosin  i2c» f 

0oD«3''0»i 

FKRfl’OI, 

IFSI3''3I, 

iPTinoit 


‘CL  , 

tMS  Fisrui, 
BCT  liorT, 
CFI  rof. 

cos  usrai, 
ocY  nonit 

FH»  •12ri , 
ICO  !T, 

IMS  £t, 
lYC  «JOnit 


MP,  HPl  , 

PIOEP  (30iJ,2‘*l ,  CP<(3rr|, 

SMUi-'fiaoit  sRM<Kil3?a». 

rDurcftnnl.  TCTMXvnnft. 


ADeSCI3''0l« 

ASURVI170I, 

BFIIOOI, 

CL, 

cPNcsnroi, 

DFiTOOl, 

FHM, 

10CCI2I, 
1NSI300I, 
IPOIlaCi . 

RNcflZOI, 

STMliCOI, 

TSU“B 

f HN7I izni 

AMSN, 


ILLOWHIZO, 
AVAVGI 61 , 

CASE, 

CH 1 N  T  t 

OCOSTl I33a» , 
OHDI3COI, 
FHPAPOI3,1?OI, 
IFKCI120f, 

INT, 

ISHORT  , 

■'Ol, 
SUMBI I20»» 


♦  TRNCS»30CI.  TSTmsrOI,  TSU“B 

OIMFNSION 

♦  OMOTi-'OOl,  FHMtllZUI,  FHNZIIZni 

CH*R*CT£R«1 6 

♦  AOeSC,  ‘DSC,  AMSN,  CASE 

BMAX:  .1, 

AVAVGI  ll:"’, 

*V*VG<  31:*’. 

TFHNC^C, 

TSORV:r . 

TNCO:  , 

00  ICO  1-1, NW 

TSURV:tSURV«*SURV»  I  I 
SUMP  llir:  , 

00  ICO  F:i,3 

I'-IL  fmp*poik,ti=3, 

00  ?:j  j:!,np 
om«  jir''. 

OMOTIJITO, 

2-u  0>*01JI:0. 

XXrASURV* ’I 
TAVr  j. 

THPO  stmt  IZj~  process  eacf  oat 

00  12  :  lr|,nw 

I*: «  I-l 1/ S« 1 

sr  1  kncs:peqm»  •issued  mi  n*L  stock  thru  o‘t  i 

DO  jso  jzi.nr 

3"u  RNCSIJlrRNCRIJ|«imo  -U^P  TOCP  IJ,  I  *  » /5  , 

CALCULATE  INI’-lAL  ESTIMATEC  A^FT  AVAIIAFLF  THIS  D»Y  AS  THOSE  AVAJLAPLF 
T'’ STEROaysNESLr  orPLCTEO  ACFT,  TMFN  CALCULATt  fsTIMATfO  FLYING  HQuRS 
ACMICVEO  hASEP  ON  TME  eSTlFai’'0  ACFT  AVAILABLE. 

IF  fl.G’.lI  YXiPN-'fl  -ITAASUPVlI-D^ACtn-ACI  I-n 
ruA  1 1 1 :  AM  I N  M  XX  •fhm,  fhk  fin 

I'!r>  :'J 

IF  imp;  C.:  )  TO  TO  f-'" 

THFU  STfT  S'’u  I'O  •'M‘S  A'TT  ISStSSHt'.T  FOR  TH'.  NO-SUb  S  t  , 

2P1NET  Oc'-ATL;  (  OACKOFOECSJ ‘"O'*  PART  K  SUMDII):  TOTAL  NO-SUH  BACHOPOrRS 
ITCTSL  UMRS  ATf  I  f  F  OM  ALL  NO-'i)P  PART'-  ON  DAY  I. 
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216 

2*7 

2*8 

2*9 

250 

251 

252 

25  J 
25* 

255 

256 

257 

258 

259 

260 
261 
262 

26  3 
26* 

265 

266 

267 

268 

269 

270 

271 

272 

273 
27* 

275 

276 

277 

278 

279 

280 
281 
282 
28  3 
28* 

285 

286 

287 

288 

289 

290 

291 

292 

293 
29* 

295 

296 

297 

298 

299 

300 

301 

302 
3C3 
3C* 
3C5 

306 

307 

308 

309 

310 

311 

312 

313 
31* 

315 

316 

317 

318 

319 

320 

321 

322 

323 
32* 

325 

326 

327 


*00  00  SOC  K=1,NP2 

11=INS(KI 
XX=0HQT(I1I 
0HQ7III >=SRII,1I,XXI 
2P=0M0TCII l-RNCSill I 
500  SUNBt Tl^SUMBI II«*HAX1 f0..7PI 
600  IF  INPl.EQ.OI  60  70  800 

THRU  STMT  7C0  00  NHCS  *CFT  ASSESSMENT  FOR  THE  FULL-SUB  SET. 

BOFCS=NET  DEMAND  I B ACKQRDERSIFRON  PART  K/QPA  r  NHCS  ACFT  FROM  THIS 
FULL-SUB  PART.  BNAX  =  TOTAL  NHCS  ACFT  FROM  ALL  FULL-SUB  PARTS  PROCESSED 

BMAX=a. 

DO  700  K=1,NP1 
1I=IFS(KI 
XX=OMDT(ITI 
DMDTdl  l  =  SR«l.II.XX  I 
BOFCS=IOHOT(lll-RNCSIIln/QPAIIl> 

IF  IBOFCS.LE.O.I  B0FCS=0. 

BMAX=AMAX1 IBHAX.BOFCSI 
TOO  CONTINUE 

CALCULATE  AUNCS=TOT*L  AVAILABLE INON-NHCSI  ACFT  FROM  ALL  PARTS.  THEN 
CONVERT  IT  TO  A  FRACTION  AVAILABLE. 


800  AUNCS=AMAXlfa.,ASURVf II-SUNBt  TI-BHAVI 
FHNCIII=ANINlfFHRII I.AUNCSPFHHI 
FHPAPOI3tII=ANINllFHN,FHR|II/ IAUNCS«.Oln 
FHN2t II=FHNCIII/tFHR<I>*.000901 I 
AUNCSrAUNCS/tASURVlIM.OOOOll 

CHECK  VHETHER  ITERATIONS  SHOULD  STOP.  COMPUTE  Z=OIFFERCNCE  BETUEEN 
INITIAL  EST  FLYING  HRS  AND  CALULCULATEO  FLYING  HRS  ACHIEVED  CHECK 
IF  2/(AVG  DAILY  P6N  FLYING  HRSI  .LT .  CONVF I INPU T > .  IF  SO. 

CONVERGENCE  IS  CLOSE  ENOUGH  TO  TERMINATE  ITERATIONS  .  ALSO  CHECK 
IF  ITERATIONS  IS  .GE.  L INI T  lINPUT I.  IF  SO, STOP  ITERATIONS. 

2=ABS  IFHNCI I l-FHA II  1 1 
INOX:iNOX*l 

IF  I1N0X.6E.LINIT.0R. 12/1 TTFH *1.11. LE.ICONVF/NUt. OR. INDX.GT. 301 
«  60  TO  1000 

CALC  NEW  EST  FLYING  HRS  ACHIEVEOlUSEO  IN  SUBROUTINE  SR  TO  CALC  NET  DEMAND 

FHAIll=.5«IFHAIII«FHNCIIt ) 

BMAXXO. 

SUNBIICO. 

RESET  CUN  DEHANO  THRU  LAST  OAT  WHEN  A  NEW  ITERATION  IS  TO  RESUME 


00  900  J=1,NP 
900  OMOTI JI=OMOfJI 
60  TO  *00 

1000  TFHNC:TFHNC*FHNC|I> 
00  IlPO  J=1,NP 
1100  OMDIUI=OHOTIJI 


CALC  THE  AVG  DAILY  OISCREPANCYI 21  BETUEEN  THE  STARTING  AND  ENDING  DAILY 
FLYING  HR  E STI M ATE S .EXPRE SSEO  AS  A  X  OF  AVG  GAILY  FLYING  PGM.  ACCUMULATE 
The  AVG  FRACTION  OF  THE  FLYING  PGM  THAT  IS  ACHIEVED  IFNC i .  CALC  AVG 
ACFT  AVAILABILITY! AXI  REQUIRED  TO  ACHIEVE  THE  DAY'S  FLYING  HR  AND  AVAIL 
OBJECTIVES 

TNC0=TNC0*2 
RNCI II=AUNCS 
TAV=TAV*RNCII IVASURVIII 
1200  CONTINUE 

2=10g.«TNCO/l TFHNC..001I 

FNC=TFMNC/TTFH 

IF  IIP.EO.OI  return 

PRINT  THE  CAPABILITY  ASSESSMENT  RESULTS  ON  A  DAILY  BASIS, W/AVERAGES 
DO  1*00  1  =  1, NW 

SUNG! II=SUH6<II/f ASURVf Il'.OOOOl I 
AX=1.-I ALLOWBII l/IASURVf I I'.DOOOOll t 
IF  IMOOII-I.SOI.NE.OI  60  TO  1300 
WRITE  16,  15001  CASE 

IF  IlCOSt.EO.l.ANO.INP.EQ.ll  WRITE  16,16001 
IF  lICOST.EO.l. and. INO. 13.2)  WRITE  16,1700) 

IF  IICOST.EO.CI  WRITE  16,1803)  HNTC 
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328 

329 

330 

331 

332 

333 
33H 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 
34  9 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 


ir  C1C0ST«E0.1)  URITE  16.1900 
WRITE  16. 20001 

CALC  AVG  ACFT  A VA IL AB IL ITT « A V A VG « 1 I 
CALC  AVG  ACHIEVED  PGH  FLVlMG  NRS/AC 
OF  ACFT  AVAILABLE. 

URITE  (6.21001  7 
URITE  <6,20001 
URITE  (6,22001 
URITE  (6,23001 
URITE  (6,24001 
URITE  (6,20001 

1300  AVAWG(ll=AVAV6(tl«RNC(II*ASUR 
A VAVG(3I=AVAV6(3I*FHPaP0( 3,11 
1400  URITE  (6,25001  I.RNC( 1 1  ,AK, I,rH 
URITE  (6,26001  AVAVGdl  .A«AVG(2 
RE  TUR  N 

1500  FORMAT  <lH1.30X,*CASCr  •.A161 
1600  FORMAT  (/,1X.*««  FORCE  CAPABIL 

*  SOLUTION  STICMEO  AT  RETAIL*,// 

♦  1 

1700  FORMAT  (/,1X.*«*  FORCE  CAPABIL 
*QMT  SOLUTION  STOCKED  C  OCPLOYEO 
IBOO  FORMAT  </,lX.««*  FORCE  CAPABI 
♦TORY  STKEO  t  OEPLOYEO  FOR  POLI 
1900  FORMAT  ( / // , lOX  ,* COST  LIMIT  OF* 
2000  FORMAT  (/I 

2100  format  (*  TOTAL  FLY  HRS  CONVER 
2200  format  (RX,*  achieved* .2?X ,*AC 
2300  format  (IIX,*  ACFT*,22Y, *FRA 


1  CL 


.UEIGHTEO  BY  DAILY  NR  OF  ACFT  SURVIVING. 
FT/0AY(AVAVG(311 .UEIGHTEO  BY  DAILY  NR 


V(11/TSURV 

•RNC(II*ASURV<I1/TAV 
NZ(II,FHPAP0(3,II 
1,FNC,AV AV6(  31 


ITY  UITM  CONSTR  COST  TOTAL  •,*ROHT 
,*  •  (NO  POST  D-DAY  PARTS  DEPLOYED 

ITY  UITH  CONSTR  COST  RESIDUAL  *  .'R 

••*1 

LITY  GIVEN  THE  CURRENT*.*  INV*.*EN 
CY*,I3,*  ••*! 

.F12.01 

GEO  TO*,*  UITHIN*,F7.3,*  PERCENT*! 
HIEVED*! 

CTI0N*,4Xj*FLY  HPS/AC*! 


24  00  FORMAT(6X,*OAY*,SK,*4VAIL*,3X,*REO  AV A I L ‘ ,6X, *DA Y • , 3X , • FH  P6N*llX, 
•  */OAY*  1 

2500  format  (5X,I4,5X,F5.3,TX,FS.3,51 
2600  FORMAT  (/.<  AVERAGES  *.4X.F5*3.: 

ENO 


>X,I4,4X,FS.3,6X,F8.11 

,7X,FS.3.13X,F5.3.iax,F5.11 
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SUBROUTINE  CCLIST 


SUBROUTINE  CCLIST  ( 16 tlORO, IHOI 
NAHE:  CCLIST  TTRCt  SUBROUTINE 

PURPOSE:  THE  CCLIST  (CONSTRAINED  COST  REOUIRENENTS  LISTI  SUBROUTINE 
PRINTS  THE  CONSTRAINED  COST  REQUUIR ENENTS  SOLUTION. 

CALLED  BTt  MAIN  PR06RAN 

CALLS 

•SUBROUTINE  NAXCt  ORDERS  THE  LIST  OF  ROUIRENENTS  TO  BE  PRINTED 
OUTPUT  •  UNIT  6  (PRINT  I 


PILES  USED  tOUTPUT  -  UNIT  6 (PRINT  I 
INPUT  -  NONE 


rS  t  NONE 


ARSUNENTS 

RARE 


TYPE 


DESCRIPTION 


16 


FIXED  INDICATOR  TO  SUBROUTINE  CCLIST  OF  MHETHER  CONSTR 
COST  ALGORITNN  1(16:11  OR  CONSTR  COST  ALSORITHN 
I  (i6:2IHAS  USED  TO  OETERHINE  THE  FINAL  CONST 
COST  solution 


IND 


FIXED 


rcs{Sual(ihit''^k:^currcnV'}nvcn?ort^!  Seqnts 

ARE  8EINC  PROCESSED  .INO:l  INDICATES  TOTAL 
reonts.  ino=2  indicates  residual  REONTS* 


lORD 


FIXED  RUN  OPTIONdNPUTI.  IF  lORO  .LE .  O.THEN  THE 

SOLUTION  REONTS  LISTS  KILL  BE  ORDERED  ACCORDIN 
TO  DECREASINB  UNIT  COST  OF  PART. IF  OPT}  .GT.  D 

IIISu55‘^fM5{5IfonE8S?"» 


CONNON  BLOCR  (UNLABELEDI  ENTRIES 


NANE 

OINENSION 

TYPE 

DESCRIPTION 

ACL 

I 

real 

the  anountasi  of  sustainability  dollars. 

BASED  ON  THE  'CUN  REOHT  COST  THRU  DAT  N> 
tables .HHICH  IS  THE  CLOSEST  APPROX INATION 

TO  THE  INPUT  COST  LINIT  FOR  THE  CONSTRAINED 
COST  CASE 

AOESC(JI 

IDO 

CHAR 

16  CHAR  DESCRIPTION  OF  SPARE  PART  J 

ANSN( Jl 

300 

CHAR 

IDENTIFICATION  NR(NSN>  OF  SPARE  PART  J 

CASE 

CHAR 

CASE  ID 

CL 

I 

REAL 

THE,C3ST  LIHIT  IAS  SPECIFIED  BY  INPUT  1  USED 
IN  THE  CONSTRAINED  COST  REONTS  CASE. 

CNCSIJI 

300 

REAL 

TOTAL  COST  OF  REOHT  FOR  PART  J  USING 

THE  SPECIFIED  PART  REPLACENEHT  POLICY. 

COSKJI 

300 

REAL 

COST  OP  A  single  ITEN  OF  PART  J  .  THIS  IS 
ALSO  DENOTED  AS  'PART  UNIT  COST*. 

nno  ooonnnor.  r»r*onor»oor>r»oor»o  noono  r>f  >r>n 
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uCCUl 

3" 

BclL 

aSBAY  ETCHING  THE  ATTRIBUTE  TO  BE  EOBTEO  ON 

IN  SUSROUTINE  maxC.  IN  SUBROUTINE  CLISI 
this  has  THE  AMOUNT  OF  THE  SOLUTION  BEShT 

FOB  Part  u. 

ircciiNP  > 

7 

f:»:c 

ETCSES  ,rOR  EIThFR  TOTAlIInO=H  9B  resioiial 
IIN0=2l,  THE  LATEST  DAY  FSOH  THE  •  cUM  COST 
R£OMT  THOU  DAY  N«  TABLE  IFPOM  THE  UNCONSTR 

COST  CASE!  FOR  WHICH  ASSOCIATED  CUM  COST 

TS  LESS  Than  OR  r  THE  INPU T-SPECIF lED  COST 

LIMIT  US'’U  IN  THE  CONSTRAINED  COST  CASE. 

ZBCIJI 

3rr: 

FIXED 

array  CONTAINING  PART  NUMBERS  OROEPED  ACC  TO 
DECREASINa  PART  UNIT  COST  FOR  ASSOCIATED  PAH'' 

IBCIJI 

inr 

FIXED 

array  containing  part  numbers  ordered  ACC  TO 
PcCHEASING  SOLUTION  R£CMT  AMOUNT  FOR  ASSOCIATED 

part 

NP 

1 

FIXED 

NR  OF  PART  TYPES  POOCCSSEO  IN  RUN.  ITHIS 
'XCLUOES  part  types  WITH  ESSENTIALITY  CODE 
•LE.  lESS  OR  WITH  A  7£B0  FAILURE  RATEa 

BNLS (J I 

sr- 

BEAL 

the  CALCULATED  REOMT  FOR  PART  j 

COM»<ON 


4 

ACI12~I , 

ACL  , 

A0ESCI3D0I. 

SLLOWl  11201 

♦ 

ALLOwEI  120  , 

AMS  MJEol  , 

ASURV  1  1?'J  1, 

AVAVGI 6> 1 

4 

AVM 1 i'O  1  , 

BEY  IIQCI, 

bFI  3001 , 

EASE, 

4 

COMOAIJDPI. 

CFI  I?0), 

CL, 

CmINT, 

4 

cNcsiiaai, 
CCOSTFI 12*1  f 

COS  II3PC». 

CPNCSI SCD) * 

DCOSTlIiOjJ 

4 

ocy  narT. 

OElIODi, 

OMOITC'JI  , 

4 

4 

oooi3"a » t 

FMR  IIIQ  1  , 

FMM, 

1 DCu 1 3  1  f 

FMPAPDC3,I? 
IFMCI 1335, 

4 

4 

IFSIS-GI. 

IPfllPOI, 

IMS  EL, 

X^C  UOCI 4 

1NSI3CCI, 

1R0(30C>» 

INT, 

ISHORT  , 

4 

4 

4 

4 

pT6EP(3!jO,r<«l, 

THNcIlSoE?!’ 

NPl  , 

OP*  I3QPI, 

SRM  AXII3D0>, 
TSTklirol. 

NP2, 

ft  1 1 20 1 1 
STXI31QI, 
T5UMB 

NU  , 

RNCSI3E0>, 
SUMBI 1701 , 

CHARACTFR*16 

4 

If 

AOESC. 

noRO.LE.O  GO 

AOS  C, 

TO  3  l5 

AMSN, 

CASE 

IF  I0°0  .GT,  IROEP  the  <7EC  FTS  LIST  BY  DECREASING  AMOUNT  OF  R£9mT 


00  in:  ir’,NP 

IFOlIi:- 

ir _  ooo* I »=RNcs 1 1 1 
NOUMMYrNP 
oc  son  f:’,np 

CALL  MAXC  IMOUFMY.NO LT» 

IP0Ik»='0UT 
IlrlBOIF) 

OODlinr-’. 

C 

C  P=:*:T  THE  CONITRAINEC  COST  REOMTS  SOLUTION 

r 

'  i  C  00  son  1=1, NP 
llrlKOI Tl 

IF  irOBn.LE.Cl  ri:lRC«II 
IF  IHOUlI-l.Sm.NE.a  J  GO  TO  RCO 
fritt  iF,9Ci;i  CASE 
IF  (iND.dO.ll  kBITE  16,7001 
IF  i:nO.EO<R)  kBITE  16, BOO 
WRITE  (S.Biiri 

IF  lIG.'O.I)  UKITE  I«, 1^301  CL.ACl 
IF  IIC.’’Q.^I  UPITT  I*, HOP!  CL,ACL,IOCCIINOI 
WRITE  (6,9jCI 
WRITE  ('..II'-PT 

jpit:  jf,?':'! 

w  'L  CNCST  II  J=COS T  III )*PN CSIII > 

T'-:  ICO.BCNCT-  nil  /  I  AC  i«.rcnocii 

3.-.  WRITE  (6,mc;L»  I,II,  AM  INiril  .AOESCI  in.BNCSni  )  .CNCni  II  TtTC 
BE  tub  >1 

o'L  FORMAT  1  IMl , IPX  , 'CASE:  •,Altl 


A^OO 
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lbi»  TOO  FOBf*T  l/f23X«*  TOT»LtINlT  STK  =  0I  STR  RQMTS  *1 

165  900  FORMAT  1/ . 30X f * RESI OUAL UNI T  STK=CURR  STK>  STN  ROHTS  *> 

166  RuO  format  (/I 

16T  1000  format  (//, lOXi'COST  LIMIT  0F*,F1?.0,*  APPROXIMATED  B V • ,F 1 2 .0 , / /, 

168  *10X, •USING  A  CONBTNEO  ICHfAPEST  NO  SUB  P AR T S I /SUSTNBL TV  SOL  *1 

169  1100  FORMAT  I / / « lOX , ’COS T  LIMIT  0F*,F12.0,’  APPROXIMATED  B T* ,F 1 2 .0 , / /, 

ITO  *10X. 'USING  A  SUSTAINIBILITV  SOLUTION  FOR  COST  THRU*. ID,’  DAVS’I 

171  1300  format  IIOX.’PART  NR»,1TX, ‘PART •,21X , 'ROMNT ’.TX , ’COST  XCOST’l 

172  1400  FORMAT  ( 2X, IS, 1 10 tS X, A16*2X ,A16 .FS. 1 f FI 2.0. F6 .2 ,4X > 
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SUBROUTINE  DIST 


1 

2 

3 

<> 

5 

6 
T 

a 

V 

10 

It 

il 

is 

16 

17 

II 

21 

22 

23 

il 

26 

27 

28 

29 

30 

31 

32 

33 
39 

II 

II 

39 

90 

n 

93 

99 

95 

96 

97 

98 

99 

50 

51 

52 

53 
59 

55 

56 

57 

58 

59 

60 
61 
62 
63 
69 
65 

1^ 

68 

69 

I? 

72 

73 

79 

u 

77 

78 

79 

80 

81 


SUBI^OUTINC  Oisr  lir0Ar,IL0«V,08NT,KI 
NAME:  DtST  7TPEt  5UBN0UTINC 


PURPOSE:  THE  0157  (PARTS  OISTR IBUT  TONI  SUBROUTINE  OISTRIBUTES  THE 
STARTING  SPARES  STOCK  OF  A  PART  TYPE  OVER  A  SERIES  OF  5-OAT  INTERVALS 

called  BT:  MAIN  PROGRAM 

CALLS  :  NONE 

FILES  USED  t  NO  files  READ  OR  HRITTEN 


ARGUMENTS 

NAME 

TYPE 

DESCRIPTION 

IFOAT 

FIXED 

FIRST  DAT  OF  PERIOD  OVER  UMlCM  THE 
distributcditne  distribution  PERIO 

STOCK  IS 

D) 

ILOAT 

FIXED 

LAST  DAT  OF  PERIOD  OVER  UHICM  THE 

STOCK  IS  distributed 

OANT 

REAL 

AVERAGE  AMOUNT  OF  STOCK  DISRIBUTEO 

the  distribution  period 

EACH  DAT  DURING 

K 

FIXED 

PART  NUMBER  OF  THE  PART  BEING  DISTRIBUTED 

rs  :  NONE 


COMMON  BLOCK  lUNLAGCLCOI  ENTRIES 


NAME 


DIMENSION  TYPE 


DESCRIPTION 


PTDEPlJtHt  3ao«2N  real 


TOTAL  amount  OF  INITIAL  STOCK  FOR  PART  J 
RECEIVED  AT  THEATERIEXCLUDING  IN-PLACE  STOCK) 
BETUEEN  DAT  SpN-N  AND  OAT  5PR 


COMMON 

*  AC<120I, 

*  ALL0HB(l20)t 

*  AVNI120I, 

*  COMOAdOOIt 

*  CNCSIIOOI. 

*  DC0STni2fil, 

*  OOOISOOIt 

*  FHR(120I, 

*  IFStSOOI. 

*  IPTClOOIt 

«  NP, 

*  PTOEPI 300,291, 

«  59(120.1001, 

*  TRNCS(3001, 
CHAPACTERPIA 

«  AOESC, 


ACL, 

ANSN(3aOI, 

BCT(300I, 

cosl(Sr&), 

DCT(300I, 

FHA(120I, 

ICOST, 

INSEU 

IRC(300I, 

NPl, 

OPAdOOl, 

AOSC, 


AOESC (300), 
ASURVdZO), 
BF(300), 

IrAcsisoo), 

0F(300), 

FMM, 

IDCC(2), 

!nS(300). 

IROfJOO), 

NP2, 

RNC(120>, 

STN)300), 

TSUMB 

AMSN, 


ALLOHKIZO), 

AVAV6(6>, 

CASE. 

Scls^i (300), 
DN0(300)  • 
FHPAPD(3,12D>, 
IFHC(120), 

INT, 

ISMORT  f 

RNCS)300), 

SUMBdZO), 

CASE 


CALCULATE  t 

01=  5-(NR  OF  OATS  OF  OTSTRIBUTIOM  IN  FTRST  5-OAT  INTERVAL  OF  OISTRIBUTION  PERIOD) 
OL=NR  OF  OATS  OF  DISTRIBUTION  IN  LAST  5-DAT  INTERVAL  OF  DISTRIBUTION  PERIOD 
IlSOmiNAL  NRIIN  FULLNARIOF  FIRST  S-OAT  INTERVAL  IN  DISTRIBUTION  PERIOD 
IL=0((0lNAL  NR(tN  FULLNARIOF  LAST  5-OAT  INTERVAL  IN  OISTRIBUTION  PERIOD 

01  =  -((ir0AT-ll/5(P5*ir0AT-l 

!L=-)(IL0AT-1)/5)p5*1L0AT 
i:MiN0(29,(IFgAT-l  )/5*l) 

L=MiN0(29,  (ILOAT-!  (/9*  II 
IF  (11. LI. ID  GO  TO  100 
PTgFPlK,lll=PTOCP(K ,I t)«(0L-01)aOANT 
RETURN 

100  00  200  I=It,lL 

IF  ll.E0.il)  PT0EP(R,  I)=PT0EPIR,I)»(S,-01)P0ANT 
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CO  00 
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SUBROUTINE  MAXC 


SUaHOUTINr  HAXC  iNOUNNVtNOUTI 
NAHCl  NlIC  TVaCl  SUBROUT  INC 

RURROSC:  THC  NAXC  SUBROUTINC  FINOS  INC  SUBSCRIPT  OF  THC  L1R6ESTIIN  VALUC 
HCMCR  of  an  array  lOOOtJI  I 

called  BT«  paOORAN 

:  l!!SSSi;i!!l 

CALLS  I  HONC 

FILES  USED  i  NO  FILES  READ  OR  WRITTEN 
AROUHENTS 

WANE  TTRE  DESCRIPTION 


THE  HR  OF  ITENS  IN  THE  ARRAT  BEINB  PROCESSED 

THC  SUBSCRIPT  ASSOCIATED  WITH  THC  LARGEST  VALUE 
IN  ARRAY  DODtJI  AT  EACH  CALL  OF  THIS  SUBROUTINE 


local  arrays  t  NONE 


C  COHNON  BLOCK  lUHLABCLCOI  ENTRIES 


OINCMSION  TYPE 


C  000 (Jl  300 

C 

C 

C 

C 

«  ALLOWS  «  120  If 

*  AVHOSOI. 

*  CDNOAflOOIf 

: 

*  000 1 3001 f 


DESCRIPTION 


ARRAT  STORIHB  THC  ATTRIBUTE  TO  BE  SORTED  ON  _ 
IN  SUBROUTINE  HAXC.  IN  NAIN  PGN.THIS  HAS  PART 

RCORT  FOR  PART  J* 


FHRf 12Dlf 
IFSIIOOIf 
IPTIlDOIf 
NP. _ 


ACL, 

ANSN(300lf 
8CT 13001, 
CFI300t, 

FHAI  1201, 
ICOST, 

inscl] 

{r^jiAoi. 


»  nr, 

*  PTOEPT 300,2*1,  OPaIiOOI, 

*  SH«l20iia0l,  SRHAXIOOOI, 

*  TRNCSI300I,  rSTN  13001, 

CHARACTCRRlA 

*  ADC  SC,  AOSC, 

SNAX=-1. 

JNAX=I 

DO  too  JSlfNOUHNY 

f=000<JI 

NAXSAHAXllSNAXfXI 
IF  I2NAX.LC.SNIXI  60  TO  100 
JNAXSJ 
SHAXSZHAX 
100  CONTINUE 
NOUT=JHAX 
RETURN 
CNO 


A0CSCI300>, 

b*f*1/55AI«‘- 

CL, 

CRNCSIIOOI, 

BFIIOOI, 

FHN, 

1DCCI2I, 

INSISOOl, 

RNCI120I, 

STRI300>, 

TSUNB 


ALL0H1I120I, 

AVAYSIGI, 

CASE, 

CH INT  f 

8g8??8S??“’- 

FHPAP0I3,120I, 

^FHCIIEOI, 

1 SHORT, 

RNCSI300I, 

SUHBI120I, 


'  •***  .*•  .*• 
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SUBROUTINE  NCRNCT 


1 

2 

3 

« 

5 

6 
T 
S 
9 

!i 

If 

ti 

20 

21 

22 

1*^ 

2S 

It 

20 

29 
10 

11 

39 

35 

30 

il 

91 


99 

95 

90 

9T 

90 

99 

50 

51 

52 

53 
59 
55 
SO 
57 
SO 

59 

60 

il 

63 

69 

65 


67 

60 

69 

70 

II 

73 

79 

75 

70 

77 

70 

79 

00 

01 


.SUOROUTINE  NCRNC  IN0^^2.1NOI 


HtHCs  NCRNC 


SUOROUT INC 


PURPOSCi  THE  NCRNC  INO  C6NNIS61.126 TtON  RE0UIRENENT5I  SUOROUTINE 
SCNEROieS  A  LEAST  COST  RQHNTS  NIX  OF  SPARE  PARTS  NEEDED  TO  ACHIEVE  A 
FLEET  FLTINC  HR  PROSRAH/ A V AIL AOILl TV  OOIECTIVE  USINS  A  USER-SPECIFIED 
PARTS  REPLACEHENT  POLICY  AND  UNCONSTRAINED  COSTS. 


CALLED  OTt  SUOROUTINE  UCROPS 


CALLS 

-FUNCTION  SRt  confutes  CUNULATtVE  NET  DENAHO  THRU  A  SPECIFIED  OAT 
FOR  A  SPECIFIED  PART 


ARSUNENTS 


TYPE 

FIXED 


C 
C 

C  files  used  t  NO  files  read  or  URITTEH 

C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C  LOCAL  ARRATS 

§ 


NANE 

HO 

12 


DESCRIPTION 

CURRENT  OAT  OEIHO  PROCESSED 


FIXED  NR  OF  ALLOMAOLE  NNCS  ACFT  ASSOCIATED  HIT . . 

NO-SUR  PART  SET  AT  THIS  STAEE  OF  THE  RCQNT  ALSORITHN 


[TH_THC 


IND 


FIXED 


INDICATOR  OF  UHETHER  TOTALIINIT  STKSOI  OR 
RESIOUALIINIT  STRS'CURRENI  inventory*  t  REONTS 
AR|  ||tN6  PRQCESSED  .IN0=1  INDICATES  TOTAL 


REC 


IND=2  INDICATES  RESIDUAL  REONTS. 


NANE 

OINCNSIOM 

TYPE 

description 

SUND2III 

120 

REAL  CUMULATIVE  RAN  UNIT  STRSQI  DEMANDS 

lALL  PARTS  1  THRU  DAT  1 

SUHP< II 

120 

REAL 

OF 

TOTAL  UNITSIALL  PARTSI  STOCNEO  IN  EXCESS 
EXPECTED  OEMANO  ON  OAT  II 

CONNON  OLOCN  (UNLADELEDI  ENTRIES 

NANE 

DIMENSION 

TYPE 

DESCRIPTION 

ALLONIIII 

120 

REAL 

THE  *6LL0HABLE  NNCS  ACFT*  FOR  THE  NO-SUB 

SET  ON  DAY  I.CONPUTED  AFTER  DAT  I  IS  PROCESSED 
AFTER  IT  is  CALCULATED  FOR  DAT  I,  IT  IS  FIXED 
OURINS  ITCRATIVC  CALCULATIONS  I1NV0LVIN6  OATH 
FOR  HO-SUa  REONTS  ON  LATER  DATS. 

ALLONOIII 

120 

REAL 

NOXIMUN  ALLOHABLE  NHCS  AC  ON  OAT  I  UHICH 

HILL  STILL  ALLON  ACHIEVNENT  OF  CASE  OBJECTIVE 
(FLTIMO  HOUR  AND  AVAILABILITTI  ON  DAT  I 

C0N0AI4I 

300 

REAL 

array  used  to  store  the  CUMULATIVE  NET  OEMANO 
(BASED  ON  INITIAL  STKZOI  FOR  PART  J  ON  THE 
SCENARIO  DAT  BEINB  PROCESSED 

CRNCSIdI 

300 

REAL 

THE  UNCONSTRAINED  COST  SOLUTION  REOMT  FOR 

PART  J  AT  ANT  STAGE  OF  THE  PARTIAL  SUB 
.  REOUIREHENT  CALCULATION  ALGORITHM. 

INSIJI 

300 

FIXED 

array  STORINB  the  PARCON  part  NUMBERS  OF  THE 
PARTS  IN  THE  NO-SUB  PART  SET. 

INT 


1  FIXED 


the  interval  at  UHICH  THE  PARTIAL  SUO 
CONFUTATION  ALGORITHN  IROUTINE  UCROPS  I 
INCRENENTS  values  for  •ALLOHAOLE  NNCS  ACFT* 
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•  2 
B3 
SB 

85 

86 

87 

88 

89 

90 

91 

92 

93 
99 

95 

96 

97 

98 

99 

}g? 

102 

103 

109 

105 

106 

107 

108 

109 

110 
111 
112 
113 

\\l 

116 

117 

118 

119 

120 
121 
122 
123 
}29 

125 

126 

127 

128 

129 

130 

131 
P2 
133 
139 

136 

137 

138 

139 

190 

191 

192 

193 
199 

195 

196 

197 

198 
99 

ISO 

51 

1S2 

159 

155 

156 

158 

159 

160 
161 

62 

163 


NP2 

1 

FIXED 

RNCSIJI 

300 

real 

TSUMB 

1 

REAL 

«T  EACH  STAGE  OF  CALCULATION  OF  SEPARATE  REONT 
SOLUTIONS  FOR  THE  FULL-SUB  SET  AND  THE  NO-SUB 
SET*  ALUAVS  SET=1  FOR  RELIABLE  RESULTS.  ITS 
VALUE  IS  set  :i  IN  THE  PROGRASH  CODE. 

TOTAL  NUMBER  OF  'PART  NUMBERS*  IN  THE  NO-SUB 
PART  SET 

TOTAL  REOMTIINIT  STK=a)  FOR  PART  J  USING  A 
•NO  SUBSTITUTION*  REPLACEMENT  POLICY 

WITH  unconstrained  cost 

THE  TOTAL  NET  STOCKOUT  FROM  ALL  NO-SUB  PARTS 
PROCESSED  AT  ANY  STAGE  OF  THE  NO-SUB  REQMTS 
CALCULATION  PORTION  OF  THE  PARTIAL  SUB  REQMT 
algorithm 


common 


ACI 1201  . 

ALLOWBl  12 

AVHI120I. 

COMOAI 300 

CNCSI 3001 

DCOSTFI 12 

00013001. 

FHRI 1201* 

1FSI300I. 

IPTIlOOl* 

NP. 

PTDrPI300 

SM( 120. 10 

ACL* 

AMSNtinOI. 

8CYI300I* 

CFdOOl, 

COST  I3P0I* 
OCYI 3001 t 
FhAI  1201* 
ICOST, 

IHSEL. 

IRCI300I* 

NPl* 

QPAI 3001. 
SRMAYl (3001* 
TSTK  13001* 

SUMP  1120  I 


AOESCISODI* 
ASURV  11201* 
BFIIDOI* 

CL. 

CRNCSI300I. 

DFiSOOl, 

FHM, 

1DCCI2), 

INSI300I, 

lROI30a>. 

NP2. 

RNCI120t. 

STKI300>. 

TSUMB 


ALL0W1I120I( 

AVAV6I6I. 

CASE. 

CMINT, 

DCOSTl 13001* 
DM0I300I • 
FHPAP0C3.120I* 
lFHCI12ai* 

INT, 

ISHORT* 

NU. 

RNCSI3001* 

SUMBI120I* 


*  TRNCSI30Q1* 

DIMENSION 

*  SUH62(120I* 

CHARACTCR916 

«  AOESC.  AOSC*  AMSN*  CASE 

NASALLONBlNOi*.S 
IF  I12.lt. NAI  GO  TO  200 
SUHPSO. 

TSUMBRO. 

00  100  LSl.NO 
SUMPtLI^O* 

100  SUHB2ILl:0* 

200  T0T7S0* 

ALL  PARTS  ARC  PROCESSED  FOR  THIS  OAYINOI  IN  THE  FOLLOMING  LOOP 


00  700  k:I.NP2 
IISINSIKI 

MAKE  A  DIRECT  CALCULATION  OF  NET  OCMANDIBASED  ON  INIT  STK=0l  ONLY 
FOR  THE  COHGINAITION  III. 121  IN  WHICH  ALLOUCD  NMCS  ACFT  FOR  THE  NO-SUB 
PARTSII?|:aLLOHCO  NMCS  ACFT  FOR  ALL  PARTS  I ALLOuBtNOI  I  OTHCRMISC  00 
A  SHORT-CUT  CALCULATION 

IF  I12.LT.NAI  60  TO  900 
C0H0AI11)=0. 

ASSUME  that  the  (PREVIOUSLY  CONPUTCDI  MIN  REOMTIRNCSl  PLUS  ISSUFO 
STOCK  AS  OF  THIS  OAYITSTKI  ARC  *BOUGHT* *I .E .  THESE  ARE  *SUNH*  COSTS. 

CRNCSIIIirRNCSIII I 

IF  IIN0.E0.2l  CRNCS(III=TSTR(II}«RNCSIIII 

FOR  EACH  PART  .RECURSIVELY  COMPUTE  THE  EFFECTS  OF  REQMT  *BUYS*  THRU 
ALL  OATS  UP  TO  CURRENT  OAT  I':  THE  FOLLLOMING  LOOP* 

CALC  CUMULATIVE  NET  OCMANO  (COMOI  FOR  PART  II  THRU  OAT  I. 

THEN  CALC  ISUMBZIlll  TOTAL  NFT  DEMAND  THRU  DAY  I  OVER  THE  K  MOST 
EXPENSIVE  PART  TYPES.  FINALLY  CALC  ITSUMBI  THE  NET  TOTAL  STOCKOUT 
(•H0LES*1  THRU  OAT  I  ANO  SET  THE  ROMNT  FOR  PART  Ilr  THE  OIFFERFNCE 
BETWEEN  THE  NET  TOTAL  STOCKOUT  ANO  THE  ALLOWABLE  S TOCKOUTI ALLOVBI 1  1 1 . 

This  calc  implicitly  assumes  (thru  sumri  that  the  rohnts  for  the 
IK-11  host  expensive  parts  have  been  computed  ANO  bought. 

DO  30P  1:1, NO 

COMOrCOMDA  I II I 
COHOAIlIt:SRII,II .COMOI 

IF  IIN0.E0.2I  SUMP! IirSUMPI II ♦ AMAXl ID. , (CRNCSI II 1 -COMOA 1 1 II  II 
SUHB2IIi:SUMBZIll*COHOAIII| 
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TSUHB  =  AHAXllSUHBZfI l-SUNR *SUNP 1 1 1 ,0 . 1 

IF  tITSUMB-CRNCStlin.BC.ACLOUllIII  CRNCS  (  1 1  i  =  TSURa -ALLOR  1 1  1 1 
300  CONTINUE 

CALC  ISUNRI  TOTAL  UNTTS  STOCK  REQUIRED  FOR  THC  K  HOST  EXPENSIVE 
PARTS 

SUNR=SUHR*CRNCSIII» 

60  TO  700 

THE  F0LL0UIN6  IS  THE  SHORT-CUT  CALCULATION  OF  REQHTS  FOR  THE  NO-SUB 
CASE.  GIVEN  THE  THE  BASE  REONT. I.E.  THE  DIRECTLY  COHPUTED  NO-SUB 
REONT  FOR  THE  CASE  WITH  ALLOUFO  NNCS  ACFT  FOR  THE  NO-SUB  SET|I2>=NA, 
THEN, IF  N  FEWER  NMCS  ACFT  ARE  ALLOWED  IFOR  THE  NO-SUB  SETI.ThE 
COST  EFFECTIVE  APPROACH  IS  TO  BUY  N  MORE  OF  THE  CHEAPEST  PARTS  WHOSE 
REOMTS  IN  THE  BASEtI2=NAI  SOLUT lONI *1 NI T  STKI  ARE  .LT.  THEIR  NET  DEHANO. 
FRACTIONAL  REOHTS  IN  THE  BASE  SOLUTION  COHPLICATED  THE  PR0GRAHNIN6  . 

<00  ZTNT=HtNailNT,NA-I2l 

IF  II2.6E.ITSUHB*.SII  RETURN 
IL:1NSINP2-K*1I 

IF  1 iCRNCSIlL l*(lNa-l IPZINTATSTKIILII .6E.C0HDA IILII  GO  TO  700 
Z=CRNCSIILI«2INT 

T2=2*IIN0-1 l•7INT•TSTKIIL l-COMOAIIL) 

IF  IT2.LE.0I  GO  TO  SOC 

CRNCSf ILI=COmOA<1L)-I IN0-1I*ZINT*TSTK lILi 

TOTZ:TOTZ*2InT-T2 

IF  I TOTZ.LT.ZINTI  60  TO  700 

CRNCSIILI=CRNCStILI-T0T7*ZINT 

GO  TO  600 

SOO  CRNCSIILI=CRNCSIILt*AHINllZlNT-TOTZ,ZlNTI 
600  TSUHB=TSUHB-2INT 
RETURN 
700  CONTINUE 

IF  II2.E0.NAI  TSUHB=TSUNB-CRNCSIII| 

IF  II2.LT.NA.0R.IN0.E0*1>  RETURN 

FOLLOWING  converts  REOHT  TO  AN  ADD-ON IRESIOUAL >  REONT  BY  SUBTRACTING 
OUT  INITIAL  STOCK  I TSTK I ISSUED  THRU  THIS  DAYINOI 

00  800  K=1,NP2 
JSINSIKi 

800  CRNCSI JIrCRNCSI J»-TSTKt Jl 
RETURN 
END 
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SUBROUTINE  UCCAP 


SUBROUTINE  UCCAP  IINOI 
NAME:  UCCAP  TYPE:  SUBROUTINE 

PURPOSE:  THE  UCCAP  lUNCONSTRAINEO  COST  CAPABILITY  ASSESSMENT!  SUBROUTINE 
COMPUTES  FLEET  CAPABILITY  lAWG  AVAI LABILITY  .PGM  FLYING  HRS/ ACFT /D A Y  I  BASED 
ON  THE  UNCONSTRAINED  COST  SOLUTION  RQMNT  BEING  STOCKED  IN  THE  MAR  RESERVE 

CALLED  BY:  MAIN  PROGRAM 

CALLS 

-FUNCTION  SR:  COMPUTES  CUMULATIVE  NET  DEMAND  THRU  A  SPECIFIED  OAT 
FOR  A  SPECIFIED  PART 

files  used  :  INPUT  -  NONE 

OUTPUT  -  UNIT  btPRINT) 

ARGUMENTS 

NAME  TYPE  DESCRIPTION 


FIXED  INDICATOR  OF  WHETHER  TOTALdNIT  STK=OI  OR 

RESIDjALdNIT  STN=*CURRENT  INVENTORY*!  REQMTS 
ARE  BEING  PROCESSED  *1^0=1  INDICATES  TOTAL 
REONTS.  IN0=2  INOICATCS  rEsIDuAL  RFONTS. 


LOCAL  ARRAYS  :  NONE 


COMMON  BLOCK  lUNLABELEOI  ENTRIES 


ALLOUBill 


ASURVdl 

AVAVGIKI 


AVMdl 


COHOAi Jl 


DMDIJi 


DOO<J! 


DIMENSION 

TYPE 

DESCRIPTION 

120 

real 

MAXIMUM  ALLOWABLE  NMCS  AC  ON  DAY  I  WHICH 

WILL  STILL  ALLOW  ACHIEVMENT  OF  CASE  OBJECTIVE 
IFLYING  HOUR  AND  AVAILABILITY!  ON  DAY  I 

■P 

1 

120 

REAL 

NR  AC  SURVIVING  INOT  ATTRITTEDION  DAY  I 

6 

real 

AVAVGI1!=AV6  ACFT  AVAIL  ,FRON  CAPABILITY 
ASSESSMENT, BASED  ON  STOCKAGE  OF  EITHER 

CURR  INV  OR  !  CURR  INV  *  COMPUTED  ADD-ON 

REONTS  SOLUTION! 

AVAV6I2!=AVG  MIN  ACFT  REO'D  TO  ACHIEVE 

THE  FLYING  HR/ AV A I  LABI L I T Y  OBJECTIVE, 

AVAVGI3>=AVG  FLY  HR/AVAIL  ACFT  /  DAY 
•FROM  CAPABILITY  ASSESSMENT.  BASED  ON 

EITHER  CURR  INV  OR  (CURR  INV  *  THE  SOLUTION 

REQMTI  BEING  STOCKED. 

120 

REAL 

AC  availability  constraint  IMIN  REQUIRED 

NON-NMCS  ACFT!  FOR  DAY  I. 

CHAR 

CASE  ID 

300 

real 

ARRAY  USED  TO  STORE  THE  CUMULATIVE  NET  DEMAND 
IBASED  ON  INITIAL  STK=0!  FOR  PART  J  ON  THE 

SCENARIO  DAY  BEING  PROCESSED 

300 

REAL 

WORKING  VARIABLE  USED  IN  CALCULATION  OF 

NET  DEMANDISRI I.J. ..! !  FOR  PART  J  ON  DAY  I 

DURING  capability  ASSESSMENT. 

WHEN  ICUM!NET  DMD  THRU  DAY  I  IS  BEING 

CALCULATED, OMOIJ!  IS  ICUH!  NET  DMD  THRU  THE 
PREVIOUS  DAY. 

300 

REAL 

ARRAY  STORING  THE  ATTRIBUTE  TO  BE  SORTED  ON 

IN  SUBROUTINE  MAXC.  IN  MAIN  PGM, THIS  HAS  PART 

UNIT  COST  FOR  PART  J.  IN  SUBPOUTINFS  CCLIST  C 
UCRQPS.THIS  HAS  THE  AMOUNT  OF  THE  SOLUTION 

REOMT  FOP  PART  J. 

REAL 

MAXIMUM  FLYING  HRS  PER  ACFT  PER  OAYdNPUT! 

RD-ni52  530  EXTENDED  PARTS  REOUIRENENTS  RND  COST  HODEL  (PARCOH)  i/9, 

FUNCTIONAL  OESCRIPTIO. .  <U)  ARHV  CONCEPTS  ANALVSIS 
AGENCV  BETHESDA  NO  U  J  BAUHAN  HAR  85  CRR-D-85-3 

F/G  14/1 


UNCLASSIFIED 


NL 
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rHPiPocRtii  iti?a  »e«L 


FHnai 


irHCiii 


tFSUI 


C  INSIJI 

e 

C  HP 

c 

c 

c 

C  NPl 

c 

C  MP2 


C  NM 

C  PTQCPU««I 

c 


C 

C  •NCIIt 
e  INCSI4I 

c 

I 

C  STHIJI 

§ 

§  SUNtlll 

I 

C  TSTIII4I 


120  OCAk 

120  riico 

joo  risco 
100  riico 
1  Piaco 

1  riico 
1  riico 
1  riico 

300*2<  tCIk 

100  tc«k 

120  OCM. 
100  ICIk 
100  OClk 
120  OCM. 
100  ten. 


POLlCf  IISCD  ON  STOCNINfi  ICUORCNT  INV  • 

THC  UNCONSTRAINCO  COST  SOLUTIOHI 

rMPkro(3.li=ri.TiM6  has  pcr  iviXlabic  icft  pco 
roft  oat  I  uNOCi  TMC  spccxFieo  replaccncnt 

POLICT  STOCIXNS  EXTmCR  CURRENT  INVENTORT  OR 
tCURR  XN«  •  THC  COHSTRAXNCO  COST  SOLUTIOHI 

FLCET  PROGRAH  rLTlNS  HOURS  RCaUXRCO  ON  OAT  X 
f ACCORDING  TO  THC  INPUT  FLTXNG  HR  PROGRANI 

???igti??oi'tt*;irri5!:xE2ii!{Sn:i^{;«xrri5;" 

OCTCRNINCS  RCOUIRCO  OAILT  PLCCT  AvAlLABlLlTT 
FOR  OAT  1 

ARNAT  STORING  THC  PARCOH  PART  HURBCRS  flP  THC 
PARTS  IN  THC  rULL-SUO  PART  SCT. 

ARRAT  gORXNG.  THC  PARCON  PART  NUNGCRS  OP  THC 


PARTS 


THC  NO-SUR  PART  SET* 


NR  OP  PART  TTPCS  PROCESSED  XN  RUN.  tTHtS 

FiCLUQCs  part  ttpes  nIth  essentialxtt  code 
.LC.  less  OR  uxth  a  zero  failure  RATCI 

TOTAL  NUNBCR  OP  'PART  NUHRERS*  XN  THE  PULL*SUR 
PART  SET 

TOTAL  NUNRCR  OF  •PART  NUNBCRS*  XN  THC  NO-SUR 
PART  SCT 

lcnothioatsi  op  scenario 

TOTAL  AHOUNT  OF  INITIAL  STOCR  FOR  PART  J 
-  - IRlIlCUOOlNG  IN-PUCC  S 


IN  OAT  $•«•«  AND  OAT  $•« 


STOCII 


THC  •QUANTITT  PCR  APPLICATION*  FOR  PART  J. 
T.e.  TMf  standard  NUNRCR  OF  ITfHS  OF  PART  J 
INSTALUO  ON  EACH  OPCRATXONAL  ACPT 

AC  AVAILARILITT  UNCN  TOTAL  RCOIINIT  STRSQI 
IS  STOCNCO  USING  A  'NO  SUBSTITUTION* 
REPLACCNCNT  POLICT  MITN  UNCONSTRAINED  COST 

total  RCONTIINIT  STRSOi  FOR  PART  J  USINR  A 
*N0  SUBSTITUTION*  REPLACCNCNT  POLICT 
UlTH  UNCONSTRAIHCO  COST 


INITIAL  SCRTICCABLE  STOCI  OF  PART  J.  IT  IS  THC 
SCRVICCAOLC  UAR  RCSCRTC  •  IlH-PLACC  ASL/PLL 
ON  OAT  II 

TOTAL  STOCIOUTS  OTCR  ALL  PARTS  IN  THC  NO-SUR 
PART  SET. AS  CALCULATED  OAT  I  OURINB 
CAPABILSTT  ASSCSSNCNT 

TNC  CUNULATXTC  stock  OCPLOTCO  for  part  4  ON 
THC  OAT  OCZNO  PROCCSSCO 


COHNON 

•  ACIITOI. 

«  ALLONRlIzOI, 

•  cSNoiiioit. 

•  OOOISOOI. 

•  FNRI12QI, 

•  IFSIlOOIt 

•  IpfllOOI. 

•  PTdfPflOa.2«l» 

•  SNdzo.icoi, 

•  TRNCsOnoi. 

CHARAClCRPl*  • 

•  AOCSCt 

•  RAT 


AN^4( 


anSRisooi* 

RCTtlOOl, 

CPIIOOI. 

cosTiirai* 

OCTIIOOI, 

fhaiizoi* 

1521^: 

IRC.iaOT. 

OP  A I IDOI, 

SRNAIlflOOl* 

TSTRIlODIt 

AOSC. 


AOCSCIlOOl*  ALLOUlllCOIt 

ASURTII20I*  ATATRIGI, 

RFI300I.  CASE. 

CL.  CNINT, 

SSSHiS?!*’* 

FHn,  FHPAP0(S,12Qlt 

IFHCllZOt, 

INTg 

ISHOffTt 

RN2silOOt. 
SUNBIIZDI* 


FHN, 
lOCCIZI, 
INSI300I, 
1R|.10D.. 

RNCllZOI, 

STKIJOOI. 

TSUNR 


ANSN, 


CASE, 
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TA«=0. 

T«V1=0. 

000111=0. 

100  OHO  II 1=0. 

00  300  L=l|Ny 
PO  200  1=1,3 
200  FHP1PDII,LI=0. 

300  SUHBILI=0. 

00  HOO  1=1.3 
«00  «V*V6III=0. 

THRU  STMT  1000  PROCCSS  EACH  OAV  I 

00  1000  I=1,NM 
IA=II>lt/S«l 

SET  TSTKIII=  ISSUED  INITIAL  STK  THRU  DAT  I 
00  SOO  J=ltNP 

SOO  TSTK  I  JI=TSTR  tJMPTOEP  IJ.I  Al/S  . 

BNAX=0. 

IF  INP2.EQ.0I  SO  TO  TOO 

THRU  STMT  SOO  00  NNCS  ACFT  ASSESSMENT  FOR  THE  MO>SUB  SET. 

ZP=NET  OEHANO  I BACKOROERS IFPOM  PART  R  SUNBIII=  TOTAL  NO-SUB  BACKORDERS 
=TOTAL  NNCS  ACFT  FROM  ALL  NO-SUB  PARTS  ON  DAT  1. 

00  600  R=1,NP2 
II=tNSIHi 
X=ONDIIII 

DMOIIII=SRIItII.Kl 

ZP=RNCSI1II 

IF  IIN0.E0.2I  ZP=RNCSIIII*TSTNtIII 
600  SUNaiIt=SUNBIII«ANAXl(O..OHOI III-ZPI 
700  IF  INPl.EQ.OI  SO  TO  900 

THRU  STMT  700  00  NNCS  ACFT  ASSESSMENT  FOR  THE  FULL-SUB  SET. 

BOFCS=NCT  OFMANO  I BACXOROERSIFROM  PART  R/OPA  S  NNCS  ACFT  FROM  THIS 
FULL-SUB  PART.  BMAX  =  TOTAL  NNCS  ACFT  FROM  ALL  FULL -SUB  PARTS  FROCESSEO 


XSOMOIIII 


OMOIIIISSRII.II.XI 

ZPsRNCSIlll 


IF  IBOFCS.LE.O.l  BOFCSSO. 

BHAX=AHAX1IBNAX(B0FCS» 

BOO  CONTINUE 

CALC  ACFT  available  IRNCIIII  FOR  DAT  I  AS  SURVIVINO  ACFT-TOTll  COMBINED 
lALL  PARTSI  NMCS  ACFT.  CALC  P6N  FIT  INS  MRS/ACFT /OAT «FNPAPOl  1. 1 > I  AND 
ACCUMULATE  ITAVll  THE  ACFT  AVAILABLE. 


ACCUMULATE  ITAV] 


The  acfT  available. 


900  RNC 1 1 1  =  AM  AX  1 1  0.  .  A  SURV  II  )-BM  AX  -SUMBI 1 1  1/ 1 A  SURV  HI*  ,00U  !  I 

FHPAPOl If  II =ANIN1 IFMH.FNR 11 1/ lASURV 1 1 l-BM AX -SUMBI 1 1 !• .00011 
TAV1=TAV1*RNCI1I«ASURVII) 

1000  CONTINUE 
TSURV=0. 

!  PRINT  THE  TABLE  OF  OAILT  UNCONSTR  COST  CAPABILITY  ASSESSMENT  M/IVSS 
DO  1200  I=1«NH 

AX=1.-IALL0NBIII/IASURVI1 l*.000001ll 
IF  IMOOII-I.SOI.NE.OI  SO  TO  1100 
MRITE  lAflVOO)  CASE 
MRITE  lOflSPOl 

IF  IINO.EO.II  WRITE  16,16001 
IF  IINO.EQ.ZI  WRITE  16,17001 

WRITE  i6,isnai 

WRITE  16,16001 
WRITE  I6,19S0I 
WRITE  I6,2C03I 
WRITE  16,21001 
WRITE  16,18001 
^1100  TSURV=TSURV«ASURVIII 

;  CALC  AVG  ACFT  A VAIL ABLE  lA VAV&I 1 M ,W EIGHTEO  BY  DAILY  NR  OF  ACFT  SURVIVING! 
:  CALC  AVG  POM  FLYING  HRS/ACFT/OAYIM AVGl 31 1 .WEIGHTED  BY  DAILY  NR  OF  ACFT 


.V. 


A-41 


w,  ^  i". 


CAA-D-85-3 


i:‘7 

2«8 

289 

2sa 

251 

252 

253 
258 

255 

256 

257 

258 

259 

260 
261 
262 
263 
268 
26  5 
266 

267 

268 

269 

270 

271 

272 


C  AVAILABLE. 

AVA«6lllSAVA«Glll«nNCIII*ASUIIVII> 

AVA«Gf2l=A«A«GI2l«AV«ASURV(II 

AVAMBI3I=AVAV6I3I*FHRAPDI 1»II •RNCII I6ASURVI1I /ITA«1*.0001 I 
RA«=*  FLriNG  HR  RR06* 

ir  (IFHClii.eo.ll  RA«=*  AVAIL  CONSTRAIN* 

1200  NRITE  (6.22001  I.RNCtll.AX.RAV.AVHlII.FHRAPOll.II.I 
00  1300  K=1.2 

1300  AVAV&(KIZAVAV6IRi/TSURV 

WRITE  (6.23001  I AVA V6 (N >.M  =  1.31 
RETURN 

1800  FORMAT  <1H1.30X.*CASE:  *«A16I 

1500  format  I/. !>.*«*  FORCE  CAPABILITY  GIVEN  THAT  THE  COMPUTED*.*  REQU 
•IREMEnT  IFOR  EACH  POLICY!  IS  STOCKED  *•*! 

1600  format  i//.ix.*««*  assumes  totaliinit  stco!  reomts*.*  stocked  at 

•RETAILINO  ^OSt  D-OAY  PARTS  OEPLOVEDI  •••*! 

1700  FORMrT  I//i1SX.*«*«  cases  assume  RESIDUALIINIT  STKsCURR  stki*.*  re 
«QN7S  are  &T0CHE9  AND  DEPLOYED  •*•*) 

1800  FORMAT  l/l 

1950  FORMAT  I/.16X ,* AIRCRAFT  AVAILABILITY* .271 .* ACHIEVED* I 
2000  Format  i2lxt*«CHiEvE0*.33x,*FLy  hrs/ac*i 

2100  FORMAT! 18X.*0Ay*.«X«*AVAIL*.*  REO  AVAIL  AVAIL*.*  SOURCE*.*  AVAI 
*L*,6X,*yOAY*,5».*OAY* I 

2200  FORMAT  I 18X .18 .FlO. 3.6X .FS.S. At 6.F5 .2,F 10.1 .18 ! 

2300  format  I/. IX.*  AVERAGE:  * .lOX .FS.3.6X .FS.3.21X.F10.1I 

END 
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1R0(JI 

300 

FIRED 

NP 

1 

PIREO 

NPI 

1 

PI  ICO 

NP2 

1 

FIRED 

NU 

PTOCP(J.RI 

1 

300.  2N 

PIREO 

REAL 

OPA (J» 

300 

REAL 

SNIl.UI 

120.100 

REAL 

SRNARKJI 

300 

REAL 

STRIJI 

300 

real 

rSTRIJI 

300 

real 

*II*AV  COMT/ktMINS  PART  NUHgERS  ORDERED  ACC  TO 
0ECREASIM6  SOLUTION  REONT  ANOUNT  POR  ASSOCIATED 
PART 

NR  OP  PART  TYPES  PROCESSED  IN  RUN.  (THIS 
eiCLUOCS  PART  TYPES  WITH  ESSENTIALITY  CODE 
.LC.  lESS  OR  WITH  A  ZERO  FAILURE  RATE  I 

TOTAL^WNRER  OP  'PART  NURRERS*  IN  THE  FULL-SUR 

TOTAL  NUHRER  OP  *PART  NURRERS*  IN  THE  NO-SUR 
PART  SET 

LEMTNTOAYSI  OP  SCENARIO 

TOTAL  ANOUNT  OP  INITIAL  STOCR  FOR  PART  J 
RECEIVED  AT  THEATERIESCLUOINS  IN-PLACE  STOCR  I 
SCTHEEN  OAT  5PH-R  AND  DAY  S«R 

THE  *aUANTITY  PER  APPLICATION*  FOR  PART  J. 

I.E*  THE  STANDARD  NUNRER  OP  ITERS  OP  PART  J 
INSTALLED  ON  EACH  OPERATIONAL  ACFT 

THE  CURULATIVE  (UNCONSTR  COSTI  SOLUTION  REONT 
THRU  OAT  I  FOR  PART  IPTIJt 

A  HORN  INS  VARIARLC  USED  IN  THE  CALCULATION  OP 
the  UNCONSTR  COST  REONT  FOR  A  PART  J  IN  THE 
Cli!:k~S|iR  SET.  IT  IS  THE  RUNNIN6  NARIRUR  (OVER 

TiMt  OP  The  net.oenaho  iincluoins  initial  stri 

FOR  PART  J^HRU  THE  DAT  RCINR  PROCESSED 

INITIAL  SERVICEARLE  STOCR  OP  PART  J.  IT  IS  THE 
$ERv|^E^^Le  VAR  RESERVE  «  (IN-PLACE  ASL/PLL 


SI  aTOUi‘,4as.«'“' 


OINENSION 

*corr8S*-”“' 

ALLmS'lzOlt 

imnuu 

?88i  SS.’:  . 

1FS(300I« 

IPTdOOI. 

NP 


ICOST, 
INSCL. 
IRCdOC 

TRNCSISaOlt  TSTR(30DI. 


ACL. 

AN  SN  (3001. 

COST(300I. 
0CYI30OI. 
FHAljzOI. 

-k: 

IRC(30ei, 
NPI, 


CHARACTERPIA 

*00  loi^Ril.IRSEL 


AOSC, 


AOESC 13001. 
ASURVdZOI. 
^^(SOOI. 

CRRCS(300I. 

DP(300I, 

FHN. 

ISsiiool. 

1R0(300I, 

NPZ. 

RNCIlZOi, 

STR(300I. 

TSUNR 

ARSN. 


300  OCOST 


THRU 


JUW 

ALLOUKIISALL 

oeo|Tiiii:o. 

0STP(ii:a. 


ALLOHldEOI. 

AVAVe(AI. 

iNfuf. 

OCbSTldOOI. 
DN0(  3001 . 
FHPAPOd.lZOI 
IFMdZOI* 

INT  f 
ISMOBT  f 

Rn2s(300I. 

SURRdZOI. 

CASE 


DO  100  ISI.120 
100  SN«T.RI=a. 

00  200  J31.NP 
TdRIJi:STH(4l 
RRCSIJCO. 

CRNCS(JI:0. 

COnOa(JI:0. 

200  SRRARKJIS-WO, 

I  INIIALIZE  ACHIEVED  OAILT  STOCROUTS  POOR  NO-SUR  PARTS 

00  300  ISI.RH 

-  ALLOURdl 


ALL  PART 


STNT  tAOO  CONFUTE  THE  UNCONSTR 
ARTS  OR  EACH  SUCCESXVE  OAT 


COST  REORTS  SOLUTION.  PROCESS 


00  lAOo  i=;<NH 
IR:(l-li/S«l 


uuu  uuu  uuwu  uuu  uuww  uuuu  uuuu  uuu  uuu 
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(SO 

^S1 

(S5 


m 


iza 


ill 


sz* 

!ZS 


<00 


cwiii?=9«VWll  Wi* . 

NOLLOHttlMl.S 

00  <or  j=i*Mp 

TSTRIJi:tSTRIJI«PTOEPIJ»J«i/S. 

OniNI  Jiro. 


lioosc 

ir  INOOINA-t.iNTI ^C.OI  1000=1 
HULTSHMO'I  I/1NTI*1000 
HaD:NULT«tNT«l 
L0&T=0 


THOU  STNT  ISOO,  CONPUTC  RCOMTS  MO  COSTS  SCPOOOTCLV  FOR  TNC  FULL-SUB 
RNO  THE  MO-SUB  PART  SETS  FOP  RLL  CONBIMRTIONS  ll.XZ  WITH  Il«12= 
lOLLOHEO  MNCS  OCFT  FOR  OAT  II  *  1 


00  ISOO  L1=1«MA0,1NT 

. . .I,r  * 


LZSHINOILltNAI 


Il=L2-l 
I2=NA-il-l 
ALL0Ht(II=12 


IF  THERE  ARE  NO  FULL-SUB  PARTS.SKIP  FULL -SUB  PROCCSSIMB 
IF  <NP1.E0.0I  00  TO  TOO 

THRU  STMT  000  ,  DO  REOHT  CALCULATIONS  ON  THE  FULL -SUB  PART  SET 


00  000  JA=1«NP1 
JSIFSUAI 
IF  IL2.6T.1I  60  TO  SOO 
CDNoseoF - 


seoNOAtji 

^OR^llTRfBU?Eo*S?OCR*  **  6ASeO  ON  INtT  STNSfl  THEN  AOJUSTIIBXI 


eONOAIJISSRfI»U»COHOI 
SXISCOMOAUI 


If  ixxxrS^rl^NoxffSii's^Axfijisxxx 

COMPUTE  THE  OAT  REOHT 


SOO 


CRNCSIJt3ANAXltO..SRNAXll  Jll 
60  TO  000 

IF  ILl.6E.NAI  ZINTSNA-LAST 


NHEN  THE  ALLOUEO  NNCS  ACFT  1$  INCREASED  BT  INT.TNEN  THE  REOHT  FOR 
A  PART  IS  REOttCEO  BT  INTpQPA.  IINTSI  AS  SET  IN  THE  MAIN  PR06RANI 


CRNCSUISMAXllO..CRNCSU»-2INT*ePAtJII 

CALC  REOHT  FOR  EACH  PART  J  OF  THE  FULL-SUB  PART  SET, THRU  THIS  COHBINATION 
OF  II  S  12. AS  THE  MAX  OF  THE  OAT  REOHTS  IFOR  THE  PARTI  OTER  ALL  OATS  PROCESSED 

000  crncsiji:ahaxiicrncsiji*rncsijii 


CALL  THE  NO-SUB  REOHTS  CALCULATION  ROUTINE  TO  OPERATE  ON  THE  NO-SUB 
PART  SET 


TOO 


IF  fNPZ.6T.0l  CALL  NCRNC  fI.I2.lNDl 
T0fCS0« 

CALCULATC  TOTAL  RCQNTS  COST  FOft  THIS  CONilNATlON  OF  Z1«X2 

?OT^?ofcitoSTf  JIOCRNCSfJI 
IF  IT0TC.6C.CRINTI  60  TO  11 


BOO 


1000 

_ NSIZ 

CnlNT 

USE  ONLT  THR  REOHTS  FROH  THE  *CIICAPCST*  COMBINATION  OF 


TALLOHSIZ  ~ 
TSTOTC 


11  C  12 


00  900  j:l.NP 
RHINIJISCRNCSIJI 

IF  ILZ.NE.NA.fNO.NPl.NC.OI  60  TO  1900 


ASSUHIN6  THERE  ARE  SORE  FULL-SUB  PARTS  IN  THIS  POLICT.OON.T  00 
final  calculations  UNLESS  ALL  COMBINATIONS  HAVE  BEEN  CHECNEO 


C  CQMPUTE  THE  FINAL  REONT  FOR  EACH  PART  AS  THE  LARGEST  OF  THE  PART 
C  RCOHTS  FOR  THE  *CHeAPEST*  COMBINATIONS  OF  11  I  12 
C 

00  1200  J=1*NP 

RNCSIJI=ANA)rl(RNIN<Ji,RNCSI  Jl  » 

C 

C  COMPUTE  *CUM  REONT  COST  I  ALL  PARTS  I  THRU  DAT  I* 

C 

OCOSTFt I ISOCOSTFI If «RNCSI JIACOSTi Jl 
C 

C  STORE  *CUN  REONT  THRU  OAT  N*  FOR  THE  PARTS  SPECIFIED  IN  INPUT 

00  1100  H=1,IHSEL 

IF  (O.EO*IPTINII  SNII*NI=RNCSIJi 

1100  continue 

1200  CNCSIJI=COSTIJI«RNCSiJI 

IF  INPl.EO.OI  60  TO  1600 

C  STORE  'CUN  REGNTS  COST  THRU  DAY  I*  FOR  JUST  THE  FULL-SUB  PARTS  IN  THE 
C  TOTALIALL  PARTSI  REONT 
C 

00  1300  J=1«NP1 
ll=lFSI Jl 

1300  OCOSTllfi=OCOSTllIf «RNCSII1  I*C0STI1II 

lAOO  IF  INPl.EO.OI  60  TO  1600 

ISOO  LASrsLl 

C  SET  ALLOHABLE  NHCS  ACFT  FOR  THE  DAY  JUST  PROCESSED  TO  THE  VALUE  OF 
C  12  USED  IN  C0HPUTIN6  THE  SOLUTION  REONT  FOR  THAT  OAT 
C 

ALLOUIIIISTALLOH 
1600  CONTINUE 

IF  IICOST.EO.il  RETURN 
C 

C  PRINT  THE  TOTAL  REONT  COST 
C 

WRITE  16.26001  CASE 
IF  fINO.EO.il  URITE  l6«2RaO} 

ir  licOS^^fl! 1 1*221 TE*l6°SSoOI  CL.ACL.IOCCtINOI 
WRITE  16.32001 
WRITE  16.33001  CNINT 

!!Sia'Lf;si’sS'i8’!.cD 

IF  IICOST.EO.il  RETURN 

IF  IIOPTR.LE.O.ANO.ICOST.EO.OI  60  TO  2200 

I  IF  lORO  .6T.  0  ORDER  THE  REONTS  ACC  TO  DECREASING  ANOUNT  OF  REONT 

00  1700  171. NP 
IR0IIi:0 

1700  D00I1I7PNCSI1I 
NOUMNVSNP 
00  1600  K=1,NP 

CALL  MAXC  INOUNNT.NOUTI 

iroini=nout 

IISIROIRI 
1600  0001111=-!. 

C  PRINT  THE  LIST  OF  REONTS  FOR  ALL  PARTS 
C 

1900  00  2100  I=1.NP 

il'IlOR^tLE.OI  II=IRCIII 
IF  INOOlI-l.SOl.NE.OI  60  TO  2000 
WRITE  16,28001  CASE 
IF  (INO.EO.Il  WRITE  16.36001 
IF  ||n0.C0.2I  write  I6.3S00I 
WRITE  16.36001 

IF  llCOSt.EO.il  WRITE  16,31001  CL.ACL.IOCCtINOI 
WRITE  16,36001 
WRITE  16.36001 
WRITE  16.36001 

2000  TC=iaC.*CNCSIII 1/ ICMINT*. 000001 1 

2100  WRITE  16.39001  I.II .AHSNI 11  I .AOESC I II I ,RNCS II 1 1 .CNCSI 11 1 , TC 
2200  IF  IICOSt.CO.il  RETURN 
iCOST= 1 

IF  IIOPTS.LE.CI  GO  TO  2500 
C 

C  PRINT  THE  TABLE  OF  *006  REONT  THRU  OAT  N*  FOR  THE  lUP  TO  1001  PARTS 
C  SPECIFIED  IN  INPUT 
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410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

•21 

422 

42  3 

424 

425 

426 

427 

428 

429 

430 

431 

432 

2300 

433 

2400 

434 

2500 

435 

C 

436 

C  PRII 

437 

C 

438 

439 

440 

441 

442 

443 

444 

445 

2600 

446 

447 

440 

2700 

449 

450 

451 

'52 

2800 

453 

29  00 

454 

3000 

455 

3100 

456 

3150 

457 

3200 

458 

3300 

459 

3400 

460 

3500 

461 

3600 

462 

38  00 

463 

39  00 

464 

4000 

465 

466 

4100 

467 

468 

469 

:i3g 

470 

44  00 

471 

4500 

•12 

4600 

473 

4700 

474 

475 

4800 

476 

4900 

477 

NN:INSeL/S 

IF  (HOOtINSFLtS>.NC.OI 
IF  INN. 6T. 201  NN=20 
00  2ilCa  L=1.NN 


l=NN«I 


NI=IPTI1«IL-1I*5I 

N2=IPTI2«IL-II*5I 

«J=iPTI3*IL-ll*5l 

M«=IPTI<*IL-II*;| 

NS=IPTIS*IL-ll«Si 
00  2300  1=1. NU 

IF  inOOIl-i.SOI .NC.OI  CO  TO  2300 
URITE  16.2800)  CASE 
IF  IINO.EQ.II  URITE  <6.4000) 

IF  IIN0.E0.2I  URITE  <6.4100) 

URITE  16.3600) 

URITE  16.4200)  M1.N2.N3.N4.N5 
URITE  <6.36001 

URITE  16.4300)  ANSM <Nl ) .AMS NIN2 ) . ANSN IN  3) * AHSNI N4) . ANSNIHS) 
URITE  <6.43001  AOESC<Nl).AOESClH2I.AOESClA3).AOESCiM4).AOESCIH 


S) 

URll 


1 4400) 


IITE  16, ‘  _ 

URITE  16.3600) 

WRITE  <6.4500)  II.SNII,K«<L-1)«5)*K=I.5) 


00  2T0a  iri.NU 

IF  <NOO<I>1.SO).NC.O)  60  TO  2600 
URITE  16.2800)  CASE 
IF  IlNO.eO.l)  WRITE  16.4600) 

IF  )IN0.E0.2I  write  <6.4700) 

WRITE  16.3600) 

WRITE  16.4800) 

IF  lOCOStFID.CT.CL)  60  TO  2700 
lOCCIINOISI 
ACLSOCOSTFII) 

WRITE  16.4900)  I.OCOSTF<I) 

WRITE  <6.3100)  a.ACL 
WRITE  <6.3150)  lOCCIINO) 

RETURN 

2800  FORNAT  TIHl.ign. •CASES  *.816) 

2900  FORNAT  l/»ii.*TOTAL<INlT  SfMS  0)  COST  OF  RQNTS*) 

3000  FORNAT  </.lX.  •RCSrOUADINIT  STNSCURR  STK)  COST  OF  RONTS*l 
3100  FORNAT  <//.10X.*C0ST  LINIT  0F*.F|2.0.*  APPROXINATEO  BV*,F 
3150  format  <//.10X, •WHICH  IS  THE  CUN  RQNT  COST  THRU  0AV^.l4) 
3200  FORNAT  </.*  POLICY  TOT  COST^) 

- YNAT  !/.•  PART  SUB^.FIR.Q) 

<MAT  </.30X,^  TOTALIINIT  STKSO)  STR  RQNTS  •) 

)NAT  </.30X.^RCS10UAL<INIT  STNSCURR  STHI  STN  RONTS  •) 


XCOST^ ) 


♦  ) 


6IVCN  OAV^) 

4200  format  <13X.S<6X.’PART  NR^.I5.6X)) 
4300  format  <13X,S<Ali.8XI) 


'THRU 


</.6X.^0Ar^.3Ki 


PART  SUB^) 


END 
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I! 

an 

85 

86 
8T 
88 

89 

90 


9*» 

95 

96 

97 

98 

99 
0 


OJ 

107 

109 

105 

106 

107 

108 

109 

110 
111 
112 
113 
119 

115 

116 

117 

118 
119 


C0MS78AINE0  cas7  AOO-ON  REQN7I  IS  S70CNE0 
THIS  IS  RECURSIVELV  COMPUTED. 


COMMON 

6CI 1201  , 
ALLOuei 120tt 
«VN(120li 
CDNO«(300I« 
CNCSI3Q0I. 
DCOSTPI 120t, 


m\mu 


8CL. 

AHSN (3001. 
BCTI30ni, 
CF 13001. 
cost  13001. 

0CVI3OOI, 


IFSI300I. 
IPTtlPOI. 

ptirp  <300.291, 

sH(i2o,iaoi, 

TRNCSl3aQI. 
CHaR*CTCR*16 

«  Aoesc, 


FH*<|2Pt 


ICOSI  . 

IMSEL, 

IRC  <300), 
NPl, 

QP«<  30PI, 

SRNAX1<3Q0), 

TSTK<300l, 


«DESC<300I, 
ASURV  <1201, 
BF<300I , 

CL, 

CRNCSIIOOI, 

0FI300I, 

FHH, 

IDCCI 21 , 
INS<3aO), 
IR0<300I, 
NP2, 

RNCI120I, 

STK<300I, 

TSUMB 


ALL0H1I120I, 

AUAV6<6I, 

CASE. 

CNIN7, 

OCOSTl 13001, 
0H0(300>, 

INT, 

ISHORT  • 

rn£s<3ooi, 

SUMBI12Q), 


AO  SC, 


AMSNi 


CASE 


CALC  < 70,18)  7HE  OATS  ON  UHICH  •ITEMS  RETURNING  TOOATIOAT  I) 
FROM  DEPOT*  FAILED. 


lD=I-OCr( Jl 
1B=I-BCY< J) 
ORR=Q. 
aRR=0. 


CALC  <ORRt  RETURNING  REPAIRS<RETURNING  ON  DAT  IlFROM  DEPOT  AND 
CALC  <BRRI  RETURNING  REPAIRS  FROM  RETAIL.  THEN  DETERMINE  CUMULATIVE 
NET  DEMAND  <ThRU  T00AV<0AV  It)  BY  ADD  NET  DEMANDS  GENERATED 
TODAY  TO  CUMULATIVE  NET  DEMANDS  THRU  YESTERDAY, 


IF  I10.6T.0I  ORR=OFIJ)*FHA«IOt 
IF  <1B.6T.0)  SRR=BF(JI«FHA(IBI 
SR=C0NO*CF<J )*FHA<I l-ORR>BRR 
RETURN 
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ABBREVIATIONS, 

acft 

AF 

AFH 

AFLC 

AMC 

AN 

AR 

ASL 

aval  1 

avg 

AVIM 

AVSCOM 

AVUM 

BC 

8R 

CAA 

calc 

CCSS 

CONUS 

cont 

cum 

curr 

DC 


GLOSSARY 

ACRONYMS,  AND  SHORT  TERMS 

aircraft 

allowed  stockouts  over  the  full -sub  part  set 

achievable  flying  hours 

Air  Force  Logistics  Command 

US  Army  Materiel  Command 

allowed  stockouts  over  the  no  sub  part  set 

Army  regulation 

authorized  stockage  list(s) 

availability 

average 

aviation  intermediate  maintenance 
US  Army  Aviation  Systems  Command 
aviation  unit  maintenance 
retail  (base)  condemnation  rate 
retail  repair  time 
US  Army  Concepts  Analysis  Agency 
calculation(s) 

Commodity  Command  Standard  System 

Continental  United  States 

continued 

cumul ative 

current 

depot  condemnation  rate 
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DCSLOG 

US  Army  Deputy  Chief  of  Staff  for  Logistics 

DESCOM 

US  Army  Depot  Systems  Command 

dmd 

demand 

DOO 

Department  of  Defense 

DRT 

depot  repair  time 

EFH 

estimated  flying  hours 

est 

estimated 

FH 

flying  hour(s) 

FHP 

flying  hour  program 

fly  hr 

flying  hour 

FS 

full  sub  (phase) 

full  sub 

full  substitution  (replacement  policy) 

hr 

hour 

init 

initial 

MFHAD 

maximum  flying  hours  per  aircraft  per  day 

min 

minimum 

MSC 

major  subordinate  command 

NMC 

not  mission  capable 

NMCS 

not  mission  capable  (due  to)  supply 

no  sub 

no  substitution  (replacement  policy) 

NS 

no  sub  (phase) 

NRTS 

not  repairable  (at)  this  station 

OPTP 

Overview/PARCOM  Turnkey  Project 

OST 

order  and  ship  time 

PARCOM 

Parts  Requirements  and  Cost  Model 

pgm 

(flying  hour)  program 

Glossary-2 


PLL 

prescribed  load  list(s) 

pt 

part 

ret 

returning  (repairs) 

QPA 

quantity  per  application 

rqmt(s) 

requirement(s) 

sub 

substitution 

Glossary-3 


END 
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5-85 
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